home *** CD-ROM | disk | FTP | other *** search
open in:
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: Tape Archive
(archive/tar).
Confidence | Program | Detection | Match Type | Support
|
---|
100%
| dexvert
| Tape Archive (archive/tar)
| magic
| Supported |
100%
| file
| POSIX tar archive (GNU)
| default
| |
99%
| file
| POSIX tar archive (GNU), directory scsh-0.4.2/, mode 40775 , uid 14423 , gid 13 , size 0 , seconds 6047023213, user bdc, group users
| default
| |
98%
| file
| data
| default
| |
62%
| TrID
| TAR - Tape ARchive (GNU)
| default
| |
37%
| TrID
| TAR - Tape ARchive (directory)
| default
| |
100%
| siegfried
| x-fmt/265 Tape Archive Format
| default
| |
100%
| lsar
| Tar
| default
| |
100%
| gt2
| TAR Archiv gefunden (Auflistung ist deaktiviert)
| default
| |
100%
| disktype
| GNU tar archive
| default
| |
100%
| detectItEasy
| Archive: tar
| default
| |
100%
| binwalkID
| POSIX tar archive (GNU), owner user name: ".2/"
| default
| |
100%
| xdgMime
| application/x-tar
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 00 00 00 00 00 |scsh-0.4|.2/.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 20 34 30 37 | 37 35 20 00 20 31 34 34 |.... 407|75 . 144|
|00000070| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00000080| 20 20 20 20 20 20 30 20 | 20 36 30 34 37 30 32 33 | 0 | 6047023|
|00000090| 32 31 33 20 20 31 30 35 | 32 33 00 20 35 00 00 00 |213 105|23. 5...|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 00 |scsh-0.4|.2/alt/.|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 20 34 30 37 | 37 35 20 00 20 31 34 34 |.... 407|75 . 144|
|00000270| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00000280| 20 20 20 20 20 20 30 20 | 20 36 30 34 37 30 32 33 | 0 | 6047023|
|00000290| 31 37 34 20 20 31 31 33 | 31 31 00 20 35 00 00 00 |174 113|11. 5...|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 61 |scsh-0.4|.2/alt/a|
|00000410| 6e 6e 6f 74 61 74 65 2e | 73 63 6d 00 00 00 00 00 |nnotate.|scm.....|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00000470| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00000480| 20 20 20 20 35 30 30 20 | 20 36 30 33 37 36 32 37 | 500 | 6037627|
|00000490| 35 37 34 20 20 31 33 37 | 31 33 00 20 30 00 00 00 |574 137|13. 0...|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 0a 3b 20 6e 6f 20 63 6f | 70 79 72 69 67 68 74 20 |.; no co|pyright |
|00000610| 70 6c 65 61 73 65 2c 20 | 73 69 6c 6c 79 20 73 68 |please, |silly sh|
|00000620| 65 6c 6c 20 73 63 72 69 | 70 74 0a 0a 28 64 65 66 |ell scri|pt..(def|
|00000630| 69 6e 65 20 2a 61 6e 6e | 6f 74 61 74 69 6f 6e 73 |ine *ann|otations|
|00000640| 2a 20 27 28 29 0a 0a 28 | 64 65 66 69 6e 65 20 28 |* '()..(|define (|
|00000650| 61 6e 6e 6f 74 61 74 65 | 2d 70 72 6f 63 65 64 75 |annotate|-procedu|
|00000660| 72 65 20 70 72 6f 63 20 | 61 6e 6e 29 0a 20 20 28 |re proc |ann). (|
|00000670| 6c 65 74 20 28 28 6e 65 | 77 20 28 6c 61 6d 62 64 |let ((ne|w (lambd|
|00000680| 61 20 61 72 67 73 20 28 | 61 70 70 6c 79 20 70 72 |a args (|apply pr|
|00000690| 6f 63 20 61 72 67 73 29 | 29 29 29 0a 20 20 20 20 |oc args)|))). |
|000006a0| 28 73 65 74 21 20 2a 61 | 6e 6e 6f 74 61 74 69 6f |(set! *a|nnotatio|
|000006b0| 6e 73 2a 20 28 63 6f 6e | 73 20 28 63 6f 6e 73 20 |ns* (con|s (cons |
|000006c0| 6e 65 77 20 61 6e 6e 29 | 20 2a 61 6e 6e 6f 74 61 |new ann)| *annota|
|000006d0| 74 69 6f 6e 73 2a 29 29 | 0a 20 20 20 20 6e 65 77 |tions*))|. new|
|000006e0| 29 29 0a 0a 28 64 65 66 | 69 6e 65 20 28 70 72 6f |))..(def|ine (pro|
|000006f0| 63 65 64 75 72 65 2d 61 | 6e 6e 6f 74 61 74 69 6f |cedure-a|nnotatio|
|00000700| 6e 20 70 72 6f 63 29 0a | 20 20 28 63 6f 6e 64 20 |n proc).| (cond |
|00000710| 28 28 61 73 73 71 20 70 | 72 6f 63 20 2a 61 6e 6e |((assq p|roc *ann|
|00000720| 6f 74 61 74 69 6f 6e 73 | 2a 29 20 3d 3e 20 63 64 |otations|*) => cd|
|00000730| 72 29 0a 09 28 65 6c 73 | 65 20 23 66 29 29 29 0a |r)..(els|e #f))).|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 61 |scsh-0.4|.2/alt/a|
|00000810| 73 63 69 69 2e 73 63 6d | 00 00 00 00 00 00 00 00 |scii.scm|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00000870| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00000880| 20 20 20 34 33 33 37 20 | 20 36 30 33 37 36 32 37 | 4337 | 6037627|
|00000890| 35 37 34 20 20 31 33 32 | 32 36 00 20 30 00 00 00 |574 132|26. 0...|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a00| 3b 20 2d 2a 2d 20 4d 6f | 64 65 3a 20 53 63 68 65 |; -*- Mo|de: Sche|
|00000a10| 6d 65 3b 20 53 79 6e 74 | 61 78 3a 20 53 63 68 65 |me; Synt|ax: Sche|
|00000a20| 6d 65 3b 20 50 61 63 6b | 61 67 65 3a 20 53 63 68 |me; Pack|age: Sch|
|00000a30| 65 6d 65 3b 20 2d 2a 2d | 0a 3b 20 43 6f 70 79 72 |eme; -*-|.; Copyr|
|00000a40| 69 67 68 74 20 28 63 29 | 20 31 39 39 33 2c 20 31 |ight (c)| 1993, 1|
|00000a50| 39 39 34 20 52 69 63 68 | 61 72 64 20 4b 65 6c 73 |994 Rich|ard Kels|
|00000a60| 65 79 20 61 6e 64 20 4a | 6f 6e 61 74 68 61 6e 20 |ey and J|onathan |
|00000a70| 52 65 65 73 2e 20 20 53 | 65 65 20 66 69 6c 65 20 |Rees. S|ee file |
|00000a80| 43 4f 50 59 49 4e 47 2e | 0a 0a 0a 3b 3b 3b 3b 20 |COPYING.|...;;;; |
|00000a90| 50 6f 72 74 61 62 6c 65 | 20 64 65 66 69 6e 69 74 |Portable| definit|
|00000aa0| 69 6f 6e 73 20 6f 66 20 | 63 68 61 72 2d 3e 61 73 |ions of |char->as|
|00000ab0| 63 69 69 20 61 6e 64 20 | 61 73 63 69 69 2d 3e 63 |cii and |ascii->c|
|00000ac0| 68 61 72 0a 0a 3b 20 44 | 6f 6e 27 74 20 64 65 74 |har..; D|on't det|
|00000ad0| 61 62 69 66 79 20 74 68 | 69 73 20 66 69 6c 65 21 |abify th|is file!|
|00000ae0| 0a 0a 3b 20 54 68 69 73 | 20 6d 6f 64 75 6c 65 20 |..; This| module |
|00000af0| 64 65 66 69 6e 65 73 20 | 63 68 61 72 2d 3e 61 73 |defines |char->as|
|00000b00| 63 69 69 20 61 6e 64 20 | 61 73 63 69 69 2d 3e 63 |cii and |ascii->c|
|00000b10| 68 61 72 20 69 6e 20 74 | 65 72 6d 73 20 6f 66 0a |har in t|erms of.|
|00000b20| 3b 20 63 68 61 72 2d 3e | 69 6e 74 65 67 65 72 20 |; char->|integer |
|00000b30| 61 6e 64 20 69 6e 74 65 | 67 65 72 2d 3e 63 68 61 |and inte|ger->cha|
|00000b40| 72 2c 20 77 69 74 68 20 | 6e 6f 20 61 73 73 75 6d |r, with |no assum|
|00000b50| 70 74 69 6f 6e 73 20 61 | 62 6f 75 74 20 74 68 65 |ptions a|bout the|
|00000b60| 20 65 6e 63 6f 64 69 6e | 67 2e 0a 3b 20 50 6f 72 | encodin|g..; Por|
|00000b70| 74 61 62 6c 65 20 65 78 | 63 65 70 74 20 6d 61 79 |table ex|cept may|
|00000b80| 62 65 20 66 6f 72 20 74 | 68 65 20 73 74 72 69 6e |be for t|he strin|
|00000b90| 67 73 20 74 68 61 74 20 | 63 6f 6e 74 61 69 6e 20 |gs that |contain |
|00000ba0| 74 61 62 2c 20 70 61 67 | 65 2c 20 61 6e 64 0a 3b |tab, pag|e, and.;|
|00000bb0| 20 63 61 72 72 69 61 67 | 65 20 72 65 74 75 72 6e | carriag|e return|
|00000bc0| 20 63 68 61 72 61 63 74 | 65 72 73 2e 20 20 54 68 | charact|ers. Th|
|00000bd0| 6f 73 65 20 63 61 6e 20 | 62 65 20 66 6c 75 73 68 |ose can |be flush|
|00000be0| 65 64 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 2e |ed if ne|cessary.|
|00000bf0| 0a 0a 28 64 65 66 69 6e | 65 20 61 73 63 69 69 2d |..(defin|e ascii-|
|00000c00| 6c 69 6d 69 74 20 31 32 | 38 29 0a 0a 28 64 65 66 |limit 12|8)..(def|
|00000c10| 69 6e 65 20 61 73 63 69 | 69 2d 63 68 61 72 73 0a |ine asci|i-chars.|
|00000c20| 20 20 28 6c 65 74 2a 20 | 28 28 61 73 63 69 69 2d | (let* |((ascii-|
|00000c30| 63 68 61 72 73 20 28 6d | 61 6b 65 2d 76 65 63 74 |chars (m|ake-vect|
|00000c40| 6f 72 20 61 73 63 69 69 | 2d 6c 69 6d 69 74 20 23 |or ascii|-limit #|
|00000c50| 66 29 29 0a 09 20 28 75 | 6e 75 73 75 61 6c 20 28 |f)).. (u|nusual (|
|00000c60| 6c 61 6d 62 64 61 20 28 | 73 29 0a 09 09 20 20 20 |lambda (|s)... |
|00000c70| 20 28 69 66 20 28 6f 72 | 20 28 6e 6f 74 20 28 3d | (if (or| (not (=|
|00000c80| 20 28 73 74 72 69 6e 67 | 2d 6c 65 6e 67 74 68 20 | (string|-length |
|00000c90| 73 29 20 31 29 29 0a 09 | 09 09 20 20 20 20 28 6c |s) 1))..|.. (l|
|00000ca0| 65 74 20 28 28 63 20 28 | 73 74 72 69 6e 67 2d 72 |et ((c (|string-r|
|00000cb0| 65 66 20 73 20 30 29 29 | 29 0a 09 09 09 20 20 20 |ef s 0))|).... |
|00000cc0| 20 20 20 28 6f 72 20 28 | 63 68 61 72 3d 3f 20 63 | (or (|char=? c|
|00000cd0| 20 23 5c 73 70 61 63 65 | 29 0a 09 09 09 09 20 20 | #\space|)..... |
|00000ce0| 28 63 68 61 72 3d 3f 20 | 63 20 23 5c 6e 65 77 6c |(char=? |c #\newl|
|00000cf0| 69 6e 65 29 29 29 29 0a | 09 09 09 28 65 72 72 6f |ine)))).|...(erro|
|00000d00| 72 20 22 75 6e 75 73 75 | 61 6c 20 77 68 69 74 65 |r "unusu|al white|
|00000d10| 73 70 61 63 65 20 63 68 | 61 72 61 63 74 65 72 20 |space ch|aracter |
|00000d20| 6c 6f 73 74 22 20 73 29 | 0a 09 09 09 73 29 29 29 |lost" s)|....s)))|
|00000d30| 0a 09 20 28 69 6e 69 74 | 20 28 6c 61 6d 62 64 61 |.. (init| (lambda|
|00000d40| 20 28 69 20 73 29 0a 09 | 09 20 28 64 6f 20 28 28 | (i s)..|. (do ((|
|00000d50| 69 20 69 20 28 2b 20 69 | 20 31 29 29 0a 09 09 20 |i i (+ i| 1))... |
|00000d60| 20 20 20 20 20 28 6a 20 | 30 20 28 2b 20 6a 20 31 | (j |0 (+ j 1|
|00000d70| 29 29 29 0a 09 09 20 20 | 20 20 20 28 28 3d 20 6a |)))... | ((= j|
|00000d80| 20 28 73 74 72 69 6e 67 | 2d 6c 65 6e 67 74 68 20 | (string|-length |
|00000d90| 73 29 29 29 0a 09 09 20 | 20 20 28 76 65 63 74 6f |s)))... | (vecto|
|00000da0| 72 2d 73 65 74 21 20 61 | 73 63 69 69 2d 63 68 61 |r-set! a|scii-cha|
|00000db0| 72 73 20 69 20 28 73 74 | 72 69 6e 67 2d 72 65 66 |rs i (st|ring-ref|
|00000dc0| 20 73 20 6a 29 29 29 29 | 29 29 0a 20 20 20 20 28 | s j))))|)). (|
|00000dd0| 69 6e 69 74 20 39 20 28 | 75 6e 75 73 75 61 6c 20 |init 9 (|unusual |
|00000de0| 22 09 22 29 29 20 20 20 | 3b 74 61 62 0a 20 20 20 |".")) |;tab. |
|00000df0| 20 28 69 6e 69 74 20 31 | 32 20 28 75 6e 75 73 75 | (init 1|2 (unusu|
|00000e00| 61 6c 20 22 0c 22 29 29 | 20 20 3b 70 61 67 65 0a |al "."))| ;page.|
|00000e10| 20 20 20 20 28 69 6e 69 | 74 20 31 33 20 28 75 6e | (ini|t 13 (un|
|00000e20| 75 73 75 61 6c 20 22 0d | 22 29 29 20 20 3b 63 61 |usual ".|")) ;ca|
|00000e30| 72 72 69 61 67 65 20 72 | 65 74 75 72 6e 0a 20 20 |rriage r|eturn. |
|00000e40| 20 20 28 69 6e 69 74 20 | 31 30 20 28 73 74 72 69 | (init |10 (stri|
|00000e50| 6e 67 20 23 5c 6e 65 77 | 6c 69 6e 65 29 29 0a 20 |ng #\new|line)). |
|00000e60| 20 20 20 28 69 6e 69 74 | 20 33 32 20 22 20 21 5c | (init| 32 " !\|
|00000e70| 22 23 24 25 26 27 28 29 | 2a 2b 2c 2d 2e 2f 30 31 |"#$%&'()|*+,-./01|
|00000e80| 32 33 34 35 36 37 38 39 | 3a 3b 3c 3d 3e 3f 22 29 |23456789|:;<=>?")|
|00000e90| 0a 20 20 20 20 28 69 6e | 69 74 20 36 34 20 22 40 |. (in|it 64 "@|
|00000ea0| 41 42 43 44 45 46 47 48 | 49 4a 4b 4c 4d 4e 4f 50 |ABCDEFGH|IJKLMNOP|
|00000eb0| 51 52 53 54 55 56 57 58 | 59 5a 5b 5c 5c 5d 5e 5f |QRSTUVWX|YZ[\\]^_|
|00000ec0| 22 29 0a 20 20 20 20 28 | 69 6e 69 74 20 39 36 20 |"). (|init 96 |
|00000ed0| 22 60 61 62 63 64 65 66 | 67 68 69 6a 6b 6c 6d 6e |"`abcdef|ghijklmn|
|00000ee0| 6f 70 71 72 73 74 75 76 | 77 78 79 7a 7b 7c 7d 7e |opqrstuv|wxyz{|}~|
|00000ef0| 22 29 0a 20 20 20 20 61 | 73 63 69 69 2d 63 68 61 |"). a|scii-cha|
|00000f00| 72 73 29 29 0a 0a 28 64 | 65 66 69 6e 65 20 28 61 |rs))..(d|efine (a|
|00000f10| 73 63 69 69 2d 3e 63 68 | 61 72 20 6e 29 0a 20 20 |scii->ch|ar n). |
|00000f20| 28 6f 72 20 28 76 65 63 | 74 6f 72 2d 72 65 66 20 |(or (vec|tor-ref |
|00000f30| 61 73 63 69 69 2d 63 68 | 61 72 73 20 6e 29 0a 20 |ascii-ch|ars n). |
|00000f40| 20 20 20 20 20 28 65 72 | 72 6f 72 20 22 6e 6f 74 | (er|ror "not|
|00000f50| 20 61 20 73 74 61 6e 64 | 61 72 64 20 63 68 61 72 | a stand|ard char|
|00000f60| 61 63 74 65 72 27 73 20 | 41 53 43 49 49 20 63 6f |acter's |ASCII co|
|00000f70| 64 65 22 20 6e 29 29 29 | 0a 0a 28 64 65 66 69 6e |de" n)))|..(defin|
|00000f80| 65 20 6e 61 74 69 76 65 | 2d 63 68 61 72 73 0a 20 |e native|-chars. |
|00000f90| 20 28 6c 65 74 20 28 28 | 65 6e 64 20 28 76 65 63 | (let ((|end (vec|
|00000fa0| 74 6f 72 2d 6c 65 6e 67 | 74 68 20 61 73 63 69 69 |tor-leng|th ascii|
|00000fb0| 2d 63 68 61 72 73 29 29 | 29 0a 20 20 20 20 28 6c |-chars))|). (l|
|00000fc0| 65 74 20 6c 6f 6f 70 20 | 28 28 69 20 30 29 0a 09 |et loop |((i 0)..|
|00000fd0| 20 20 20 20 20 20 20 28 | 6c 65 61 73 74 20 20 20 | (|least |
|00000fe0| 20 23 66 29 0a 09 20 20 | 20 20 20 20 20 28 67 72 | #f).. | (gr|
|00000ff0| 65 61 74 65 73 74 20 23 | 66 29 29 0a 20 20 20 20 |eatest #|f)). |
|00001000| 20 20 28 63 6f 6e 64 20 | 28 28 3d 20 69 20 65 6e | (cond |((= i en|
|00001010| 64 29 0a 09 20 20 20 20 | 20 28 6c 65 74 20 28 28 |d).. | (let ((|
|00001020| 76 20 28 6d 61 6b 65 2d | 76 65 63 74 6f 72 20 28 |v (make-|vector (|
|00001030| 2b 20 28 2d 20 67 72 65 | 61 74 65 73 74 20 6c 65 |+ (- gre|atest le|
|00001040| 61 73 74 29 20 31 29 20 | 23 66 29 29 29 0a 09 20 |ast) 1) |#f))).. |
|00001050| 20 20 20 20 20 20 28 64 | 6f 20 28 28 69 20 30 20 | (d|o ((i 0 |
|00001060| 28 2b 20 69 20 31 29 29 | 29 0a 09 09 20 20 20 28 |(+ i 1))|)... (|
|00001070| 28 3d 20 69 20 65 6e 64 | 29 20 28 63 6f 6e 73 20 |(= i end|) (cons |
|00001080| 6c 65 61 73 74 20 76 29 | 29 0a 09 09 20 28 6c 65 |least v)|)... (le|
|00001090| 74 20 28 28 63 20 28 76 | 65 63 74 6f 72 2d 72 65 |t ((c (v|ector-re|
|000010a0| 66 20 61 73 63 69 69 2d | 63 68 61 72 73 20 69 29 |f ascii-|chars i)|
|000010b0| 29 29 0a 09 09 20 20 20 | 28 69 66 20 63 0a 09 09 |))... |(if c...|
|000010c0| 20 20 20 20 20 20 20 28 | 76 65 63 74 6f 72 2d 73 | (|vector-s|
|000010d0| 65 74 21 20 76 20 28 2d | 20 28 63 68 61 72 2d 3e |et! v (-| (char->|
|000010e0| 69 6e 74 65 67 65 72 20 | 63 29 20 6c 65 61 73 74 |integer |c) least|
|000010f0| 29 20 69 29 29 29 29 29 | 29 0a 09 20 20 20 20 28 |) i)))))|).. (|
|00001100| 65 6c 73 65 0a 09 20 20 | 20 20 20 28 6c 65 74 20 |else.. | (let |
|00001110| 28 28 63 20 28 76 65 63 | 74 6f 72 2d 72 65 66 20 |((c (vec|tor-ref |
|00001120| 61 73 63 69 69 2d 63 68 | 61 72 73 20 69 29 29 29 |ascii-ch|ars i)))|
|00001130| 0a 09 20 20 20 20 20 20 | 20 28 69 66 20 63 0a 09 |.. | (if c..|
|00001140| 09 20 20 20 28 6c 65 74 | 20 28 28 6e 20 28 63 68 |. (let| ((n (ch|
|00001150| 61 72 2d 3e 69 6e 74 65 | 67 65 72 20 63 29 29 29 |ar->inte|ger c)))|
|00001160| 0a 09 09 20 20 20 20 20 | 28 6c 6f 6f 70 20 28 2b |... |(loop (+|
|00001170| 20 69 20 31 29 0a 09 09 | 09 20 20 20 28 69 66 20 | i 1)...|. (if |
|00001180| 6c 65 61 73 74 20 20 20 | 20 28 6d 69 6e 20 6c 65 |least | (min le|
|00001190| 61 73 74 20 20 20 20 6e | 29 20 6e 29 0a 09 09 09 |ast n|) n)....|
|000011a0| 20 20 20 28 69 66 20 67 | 72 65 61 74 65 73 74 20 | (if g|reatest |
|000011b0| 28 6d 61 78 20 67 72 65 | 61 74 65 73 74 20 6e 29 |(max gre|atest n)|
|000011c0| 20 6e 29 29 29 0a 09 09 | 20 20 20 28 6c 6f 6f 70 | n)))...| (loop|
|000011d0| 20 28 2b 20 69 20 31 29 | 20 6c 65 61 73 74 20 67 | (+ i 1)| least g|
|000011e0| 72 65 61 74 65 73 74 29 | 29 29 29 29 29 29 29 0a |reatest)|))))))).|
|000011f0| 0a 28 64 65 66 69 6e 65 | 20 28 63 68 61 72 2d 3e |.(define| (char->|
|00001200| 61 73 63 69 69 20 63 68 | 61 72 29 0a 20 20 28 6f |ascii ch|ar). (o|
|00001210| 72 20 28 76 65 63 74 6f | 72 2d 72 65 66 20 28 63 |r (vecto|r-ref (c|
|00001220| 64 72 20 6e 61 74 69 76 | 65 2d 63 68 61 72 73 29 |dr nativ|e-chars)|
|00001230| 0a 09 09 20 20 28 2d 20 | 28 63 68 61 72 2d 3e 69 |... (- |(char->i|
|00001240| 6e 74 65 67 65 72 20 63 | 68 61 72 29 20 28 63 61 |nteger c|har) (ca|
|00001250| 72 20 6e 61 74 69 76 65 | 2d 63 68 61 72 73 29 29 |r native|-chars))|
|00001260| 29 0a 20 20 20 20 20 20 | 28 65 72 72 6f 72 20 22 |). |(error "|
|00001270| 6e 6f 74 20 61 20 73 74 | 61 6e 64 61 72 64 20 63 |not a st|andard c|
|00001280| 68 61 72 61 63 74 65 72 | 22 20 63 68 61 72 29 29 |haracter|" char))|
|00001290| 29 0a 0a 28 64 65 66 69 | 6e 65 20 61 73 63 69 69 |)..(defi|ne ascii|
|000012a0| 2d 77 68 69 74 65 73 70 | 61 63 65 73 20 27 28 33 |-whitesp|aces '(3|
|000012b0| 32 20 31 30 20 39 20 31 | 32 20 31 33 29 29 20 3b |2 10 9 1|2 13)) ;|
|000012c0| 73 70 61 63 65 20 6c 69 | 6e 65 66 65 65 64 20 74 |space li|nefeed t|
|000012d0| 61 62 20 70 61 67 65 20 | 72 65 74 75 72 6e 0a 00 |ab page |return..|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 62 |scsh-0.4|.2/alt/b|
|00001410| 69 74 77 69 73 65 2d 74 | 65 73 74 73 2e 73 63 6d |itwise-t|ests.scm|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00001470| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00001480| 20 20 20 33 31 31 32 20 | 20 36 30 33 37 36 32 37 | 3112 | 6037627|
|00001490| 35 37 34 20 20 31 34 37 | 33 32 00 20 30 00 00 00 |574 147|32. 0...|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001500| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00001510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001520| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001600| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00001610| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00001620| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00001630| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00001640| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00001650| 0a 0a 3b 20 4c 6f 73 74 | 3a 20 28 41 52 49 54 48 |..; Lost|: (ARITH|
|00001660| 4d 45 54 49 43 2d 53 48 | 49 46 54 20 35 20 32 37 |METIC-SH|IFT 5 27|
|00001670| 29 20 3d 3e 20 2d 34 30 | 32 36 35 33 31 38 34 20 |) => -40|2653184 |
|00001680| 5b 77 61 6e 74 65 64 20 | 36 37 31 30 38 38 36 34 |[wanted |67108864|
|00001690| 30 2e 5d 0a 3b 20 4c 6f | 73 74 3a 20 28 41 52 49 |0.].; Lo|st: (ARI|
|000016a0| 54 48 4d 45 54 49 43 2d | 53 48 49 46 54 20 35 20 |THMETIC-|SHIFT 5 |
|000016b0| 32 38 29 20 3d 3e 20 32 | 36 38 34 33 35 34 35 36 |28) => 2|68435456|
|000016c0| 20 5b 77 61 6e 74 65 64 | 20 31 33 34 32 31 37 37 | [wanted| 1342177|
|000016d0| 32 38 30 2e 5d 0a 0a 0a | 28 64 65 66 69 6e 65 20 |280.]...|(define |
|000016e0| 28 74 65 73 74 69 74 20 | 6e 61 6d 65 20 70 72 6f |(testit |name pro|
|000016f0| 63 20 78 20 79 20 7a 29 | 0a 20 20 28 6c 65 74 20 |c x y z)|. (let |
|00001700| 28 28 72 65 73 75 6c 74 | 20 28 70 72 6f 63 20 78 |((result| (proc x|
|00001710| 20 79 29 29 29 0a 20 20 | 20 20 28 69 66 20 28 6e | y))). | (if (n|
|00001720| 6f 74 20 28 3d 20 72 65 | 73 75 6c 74 20 7a 29 29 |ot (= re|sult z))|
|00001730| 0a 09 28 62 65 67 69 6e | 20 28 64 69 73 70 6c 61 |..(begin| (displa|
|00001740| 79 20 22 4c 6f 73 74 3a | 20 22 29 0a 09 20 20 20 |y "Lost:| ").. |
|00001750| 20 20 20 20 28 77 72 69 | 74 65 20 60 28 2c 6e 61 | (wri|te `(,na|
|00001760| 6d 65 20 2c 78 20 2c 79 | 29 29 0a 09 20 20 20 20 |me ,x ,y|)).. |
|00001770| 20 20 20 28 64 69 73 70 | 6c 61 79 20 22 20 3d 3e | (disp|lay " =>|
|00001780| 20 22 29 0a 09 20 20 20 | 20 20 20 20 28 77 72 69 | ").. | (wri|
|00001790| 74 65 20 72 65 73 75 6c | 74 29 0a 09 20 20 20 20 |te resul|t).. |
|000017a0| 20 20 20 28 64 69 73 70 | 6c 61 79 20 22 20 5b 77 | (disp|lay " [w|
|000017b0| 61 6e 74 65 64 20 22 29 | 0a 09 20 20 20 20 20 20 |anted ")|.. |
|000017c0| 20 28 77 72 69 74 65 20 | 7a 29 0a 09 20 20 20 20 | (write |z).. |
|000017d0| 20 20 20 28 64 69 73 70 | 6c 61 79 20 22 5d 22 29 | (disp|lay "]")|
|000017e0| 0a 09 20 20 20 20 20 20 | 20 28 6e 65 77 6c 69 6e |.. | (newlin|
|000017f0| 65 29 29 29 29 29 0a 0a | 28 64 65 66 69 6e 65 20 |e)))))..|(define |
|00001800| 6d 6f 73 74 2d 70 6f 73 | 69 74 69 76 65 2d 66 69 |most-pos|itive-fi|
|00001810| 78 6e 75 6d 0a 20 20 28 | 6c 65 74 20 28 28 6e 20 |xnum. (|let ((n |
|00001820| 28 61 72 69 74 68 6d 65 | 74 69 63 2d 73 68 69 66 |(arithme|tic-shif|
|00001830| 74 20 32 20 32 37 29 29 | 29 20 28 2b 20 6e 20 28 |t 2 27))|) (+ n (|
|00001840| 2d 20 6e 20 31 29 29 29 | 29 0a 0a 28 64 65 66 69 |- n 1)))|)..(defi|
|00001850| 6e 65 20 28 74 65 73 74 | 2d 6c 65 66 74 2d 73 68 |ne (test|-left-sh|
|00001860| 69 66 74 73 20 78 29 0a | 20 20 28 6c 65 74 20 28 |ifts x).| (let (|
|00001870| 28 63 72 6f 73 73 6f 76 | 65 72 20 28 61 72 69 74 |(crossov|er (arit|
|00001880| 68 6d 65 74 69 63 2d 73 | 68 69 66 74 20 32 20 32 |hmetic-s|hift 2 2|
|00001890| 37 29 29 29 0a 20 20 20 | 20 28 64 6f 20 28 28 79 |7))). | (do ((y|
|000018a0| 20 30 20 28 2b 20 79 20 | 31 29 29 0a 09 20 28 7a | 0 (+ y |1)).. (z|
|000018b0| 20 78 20 28 2a 20 7a 20 | 28 69 66 20 28 3e 3d 20 | x (* z |(if (>= |
|000018c0| 7a 20 63 72 6f 73 73 6f | 76 65 72 29 20 32 2e 20 |z crosso|ver) 2. |
|000018d0| 32 29 29 29 29 0a 09 28 | 28 3d 20 79 20 33 34 29 |2))))..(|(= y 34)|
|000018e0| 29 0a 20 20 20 20 20 20 | 28 74 65 73 74 69 74 20 |). |(testit |
|000018f0| 27 61 72 69 74 68 6d 65 | 74 69 63 2d 73 68 69 66 |'arithme|tic-shif|
|00001900| 74 20 61 72 69 74 68 6d | 65 74 69 63 2d 73 68 69 |t arithm|etic-shi|
|00001910| 66 74 20 78 20 79 20 7a | 29 29 29 29 0a 0a 28 74 |ft x y z|))))..(t|
|00001920| 65 73 74 2d 6c 65 66 74 | 2d 73 68 69 66 74 73 20 |est-left|-shifts |
|00001930| 35 29 0a 28 74 65 73 74 | 2d 6c 65 66 74 2d 73 68 |5).(test|-left-sh|
|00001940| 69 66 74 73 20 2d 35 29 | 0a 0a 28 64 65 66 69 6e |ifts -5)|..(defin|
|00001950| 65 20 28 74 65 73 74 2d | 72 69 67 68 74 2d 73 68 |e (test-|right-sh|
|00001960| 69 66 74 73 20 78 29 0a | 20 20 28 64 6f 20 28 28 |ifts x).| (do ((|
|00001970| 79 20 30 20 28 2d 20 79 | 20 31 29 29 0a 20 20 20 |y 0 (- y| 1)). |
|00001980| 20 20 20 20 28 7a 20 78 | 20 28 71 75 6f 74 69 65 | (z x| (quotie|
|00001990| 6e 74 20 7a 20 32 29 29 | 29 0a 20 20 20 20 20 20 |nt z 2))|). |
|000019a0| 28 28 3d 20 79 20 2d 33 | 34 29 29 0a 20 20 20 20 |((= y -3|4)). |
|000019b0| 28 74 65 73 74 69 74 20 | 27 61 72 69 74 68 6d 65 |(testit |'arithme|
|000019c0| 74 69 63 2d 73 68 69 66 | 74 20 61 72 69 74 68 6d |tic-shif|t arithm|
|000019d0| 65 74 69 63 2d 73 68 69 | 66 74 20 78 20 79 20 7a |etic-shi|ft x y z|
|000019e0| 29 29 29 0a 0a 28 74 65 | 73 74 2d 72 69 67 68 74 |)))..(te|st-right|
|000019f0| 2d 73 68 69 66 74 73 20 | 28 2a 20 35 20 28 65 78 |-shifts |(* 5 (ex|
|00001a00| 70 74 20 32 20 33 36 29 | 29 29 0a 28 74 65 73 74 |pt 2 36)|)).(test|
|00001a10| 2d 72 69 67 68 74 2d 73 | 68 69 66 74 73 20 28 2a |-right-s|hifts (*|
|00001a20| 20 2d 35 20 28 65 78 70 | 74 20 32 20 33 36 29 29 | -5 (exp|t 2 36))|
|00001a30| 29 0a 0a 28 64 65 66 69 | 6e 65 20 28 62 69 74 31 |)..(defi|ne (bit1|
|00001a40| 3f 20 78 29 0a 20 20 28 | 69 66 20 28 3c 20 78 20 |? x). (|if (< x |
|00001a50| 30 29 0a 20 20 20 20 20 | 20 28 65 76 65 6e 3f 20 |0). | (even? |
|00001a60| 28 71 75 6f 74 69 65 6e | 74 20 28 2d 20 2d 31 20 |(quotien|t (- -1 |
|00001a70| 78 29 20 32 29 29 0a 20 | 20 20 20 20 20 28 6f 64 |x) 2)). | (od|
|00001a80| 64 3f 20 28 71 75 6f 74 | 69 65 6e 74 20 78 20 32 |d? (quot|ient x 2|
|00001a90| 29 29 29 29 0a 0a 28 64 | 65 66 69 6e 65 20 28 74 |))))..(d|efine (t|
|00001aa0| 72 79 2d 74 72 75 74 68 | 2d 74 61 62 6c 65 20 6e |ry-truth|-table n|
|00001ab0| 61 6d 65 20 70 72 6f 63 | 20 70 72 65 64 69 63 61 |ame proc| predica|
|00001ac0| 74 65 29 0a 20 20 28 64 | 6f 20 28 28 78 20 2d 34 |te). (d|o ((x -4|
|00001ad0| 20 28 2b 20 78 20 31 29 | 29 29 0a 20 20 20 20 20 | (+ x 1)|)). |
|00001ae0| 20 28 28 3d 20 78 20 34 | 29 29 0a 20 20 20 20 28 | ((= x 4|)). (|
|00001af0| 64 6f 20 28 28 79 20 2d | 34 20 28 2b 20 79 20 31 |do ((y -|4 (+ y 1|
|00001b00| 29 29 29 0a 09 28 28 3d | 20 79 20 34 29 29 0a 20 |)))..((=| y 4)). |
|00001b10| 20 20 20 20 20 28 74 65 | 73 74 69 74 20 6e 61 6d | (te|stit nam|
|00001b20| 65 20 70 72 6f 63 20 78 | 20 79 0a 09 20 20 20 20 |e proc x| y.. |
|00001b30| 20 20 28 2b 20 28 69 66 | 20 28 70 72 65 64 69 63 | (+ (if| (predic|
|00001b40| 61 74 65 20 28 6f 64 64 | 3f 20 78 29 20 28 6f 64 |ate (odd|? x) (od|
|00001b50| 64 3f 20 79 29 29 20 31 | 20 30 29 0a 09 09 20 28 |d? y)) 1| 0)... (|
|00001b60| 69 66 20 28 70 72 65 64 | 69 63 61 74 65 20 28 62 |if (pred|icate (b|
|00001b70| 69 74 31 3f 20 78 29 20 | 28 62 69 74 31 3f 20 79 |it1? x) |(bit1? y|
|00001b80| 29 29 20 32 20 30 29 0a | 09 09 20 28 69 66 20 28 |)) 2 0).|.. (if (|
|00001b90| 70 72 65 64 69 63 61 74 | 65 20 28 6e 65 67 61 74 |predicat|e (negat|
|00001ba0| 69 76 65 3f 20 78 29 20 | 28 6e 65 67 61 74 69 76 |ive? x) |(negativ|
|00001bb0| 65 3f 20 79 29 29 20 2d | 34 20 30 29 29 29 29 29 |e? y)) -|4 0)))))|
|00001bc0| 29 0a 0a 28 74 72 79 2d | 74 72 75 74 68 2d 74 61 |)..(try-|truth-ta|
|00001bd0| 62 6c 65 20 27 62 69 74 | 77 69 73 65 2d 61 6e 64 |ble 'bit|wise-and|
|00001be0| 20 62 69 74 77 69 73 65 | 2d 61 6e 64 20 28 6c 61 | bitwise|-and (la|
|00001bf0| 6d 62 64 61 20 28 61 20 | 62 29 20 28 61 6e 64 20 |mbda (a |b) (and |
|00001c00| 61 20 62 29 29 29 0a 28 | 74 72 79 2d 74 72 75 74 |a b))).(|try-trut|
|00001c10| 68 2d 74 61 62 6c 65 20 | 27 62 69 74 77 69 73 65 |h-table |'bitwise|
|00001c20| 2d 69 6f 72 20 62 69 74 | 77 69 73 65 2d 69 6f 72 |-ior bit|wise-ior|
|00001c30| 20 28 6c 61 6d 62 64 61 | 20 28 61 20 62 29 20 28 | (lambda| (a b) (|
|00001c40| 6f 72 20 61 20 62 29 29 | 29 0a 00 00 00 00 00 00 |or a b))|).......|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 62 |scsh-0.4|.2/alt/b|
|00001e10| 69 74 77 69 73 65 2e 73 | 63 6d 00 00 00 00 00 00 |itwise.s|cm......|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00001e70| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00001e80| 20 20 20 32 31 32 31 20 | 20 36 30 33 37 36 32 37 | 2121 | 6037627|
|00001e90| 35 37 35 20 20 31 33 35 | 37 32 00 20 30 00 00 00 |575 135|72. 0...|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00001f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f20| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00001f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00002010| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00002020| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00002030| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00002040| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00002050| 0a 3b 20 42 69 74 77 69 | 73 65 20 6f 70 65 72 61 |.; Bitwi|se opera|
|00002060| 74 6f 72 73 20 77 72 69 | 74 74 65 6e 20 69 6e 20 |tors wri|tten in |
|00002070| 76 61 6e 69 6c 6c 61 20 | 53 63 68 65 6d 65 2e 0a |vanilla |Scheme..|
|00002080| 3b 20 57 72 69 74 74 65 | 6e 20 66 6f 72 20 63 6c |; Writte|n for cl|
|00002090| 61 72 69 74 79 20 61 6e | 64 20 73 69 6d 70 6c 69 |arity an|d simpli|
|000020a0| 63 69 74 79 2c 20 6e 6f | 74 20 66 6f 72 20 73 70 |city, no|t for sp|
|000020b0| 65 65 64 2e 0a 0a 3b 20 | 4e 6f 20 6e 65 65 64 20 |eed...; |No need |
|000020c0| 74 6f 20 75 73 65 20 74 | 68 65 73 65 20 69 6e 20 |to use t|hese in |
|000020d0| 53 63 68 65 6d 65 20 34 | 38 20 73 69 6e 63 65 20 |Scheme 4|8 since |
|000020e0| 53 63 68 65 6d 65 20 34 | 38 27 73 20 76 69 72 74 |Scheme 4|8's virt|
|000020f0| 75 61 6c 20 6d 61 63 68 | 69 6e 65 0a 3b 20 70 72 |ual mach|ine.; pr|
|00002100| 6f 76 69 64 65 73 20 66 | 61 73 74 20 6d 61 63 68 |ovides f|ast mach|
|00002110| 69 6e 65 2d 6c 65 76 65 | 6c 20 69 6d 70 6c 65 6d |ine-leve|l implem|
|00002120| 65 6e 74 61 74 69 6f 6e | 73 2e 0a 0a 0a 28 64 65 |entation|s....(de|
|00002130| 66 69 6e 65 20 28 62 69 | 74 77 69 73 65 2d 6e 6f |fine (bi|twise-no|
|00002140| 74 20 69 29 0a 20 20 28 | 2d 20 2d 31 20 69 29 29 |t i). (|- -1 i))|
|00002150| 0a 0a 28 64 65 66 69 6e | 65 20 28 62 69 74 77 69 |..(defin|e (bitwi|
|00002160| 73 65 2d 61 6e 64 20 78 | 20 79 29 0a 20 20 28 63 |se-and x| y). (c|
|00002170| 6f 6e 64 20 28 28 3d 20 | 78 20 30 29 20 30 29 0a |ond ((= |x 0) 0).|
|00002180| 09 28 28 3d 20 78 20 2d | 31 29 20 79 29 0a 09 28 |.((= x -|1) y)..(|
|00002190| 65 6c 73 65 0a 09 20 28 | 2b 20 28 2a 20 28 62 69 |else.. (|+ (* (bi|
|000021a0| 74 77 69 73 65 2d 61 6e | 64 20 28 61 72 69 74 68 |twise-an|d (arith|
|000021b0| 6d 65 74 69 63 2d 73 68 | 69 66 74 20 78 20 2d 31 |metic-sh|ift x -1|
|000021c0| 29 0a 09 09 09 20 20 20 | 20 28 61 72 69 74 68 6d |).... | (arithm|
|000021d0| 65 74 69 63 2d 73 68 69 | 66 74 20 79 20 2d 31 29 |etic-shi|ft y -1)|
|000021e0| 29 0a 09 20 20 20 20 20 | 20 20 32 29 0a 09 20 20 |).. | 2).. |
|000021f0| 20 20 28 2a 20 28 6d 6f | 64 75 6c 6f 20 78 20 32 | (* (mo|dulo x 2|
|00002200| 29 20 28 6d 6f 64 75 6c | 6f 20 79 20 32 29 29 29 |) (modul|o y 2)))|
|00002210| 29 29 29 0a 0a 28 64 65 | 66 69 6e 65 20 28 62 69 |)))..(de|fine (bi|
|00002220| 74 77 69 73 65 2d 69 6f | 72 20 78 20 79 29 0a 20 |twise-io|r x y). |
|00002230| 20 28 62 69 74 77 69 73 | 65 2d 6e 6f 74 20 28 62 | (bitwis|e-not (b|
|00002240| 69 74 77 69 73 65 2d 61 | 6e 64 20 28 62 69 74 77 |itwise-a|nd (bitw|
|00002250| 69 73 65 2d 6e 6f 74 20 | 78 29 0a 09 09 09 20 20 |ise-not |x).... |
|00002260| 20 20 28 62 69 74 77 69 | 73 65 2d 6e 6f 74 20 79 | (bitwi|se-not y|
|00002270| 29 29 29 29 0a 0a 28 64 | 65 66 69 6e 65 20 28 62 |))))..(d|efine (b|
|00002280| 69 74 77 69 73 65 2d 78 | 6f 72 20 78 20 79 29 0a |itwise-x|or x y).|
|00002290| 20 20 28 62 69 74 77 69 | 73 65 2d 61 6e 64 20 28 | (bitwi|se-and (|
|000022a0| 62 69 74 77 69 73 65 2d | 6e 6f 74 20 28 62 69 74 |bitwise-|not (bit|
|000022b0| 77 69 73 65 2d 61 6e 64 | 20 78 20 79 29 29 0a 09 |wise-and| x y))..|
|000022c0| 20 20 20 20 20 20 20 28 | 62 69 74 77 69 73 65 2d | (|bitwise-|
|000022d0| 69 6f 72 20 78 20 79 29 | 29 29 0a 0a 28 64 65 66 |ior x y)|))..(def|
|000022e0| 69 6e 65 20 28 62 69 74 | 77 69 73 65 2d 65 71 76 |ine (bit|wise-eqv|
|000022f0| 20 78 20 79 29 0a 20 20 | 28 62 69 74 77 69 73 65 | x y). |(bitwise|
|00002300| 2d 6e 6f 74 20 28 62 69 | 74 77 69 73 65 2d 78 6f |-not (bi|twise-xo|
|00002310| 72 20 78 20 79 29 29 29 | 0a 0a 0a 28 64 65 66 69 |r x y)))|...(defi|
|00002320| 6e 65 20 28 61 72 69 74 | 68 6d 65 74 69 63 2d 73 |ne (arit|hmetic-s|
|00002330| 68 69 66 74 20 6e 20 6d | 29 0a 20 20 28 66 6c 6f |hift n m|). (flo|
|00002340| 6f 72 20 28 2a 20 6e 20 | 28 65 78 70 74 20 32 20 |or (* n |(expt 2 |
|00002350| 6d 29 29 29 29 0a 0a 0a | 28 64 65 66 69 6e 65 20 |m))))...|(define |
|00002360| 28 63 6f 75 6e 74 2d 62 | 69 74 73 20 78 29 09 09 |(count-b|its x)..|
|00002370| 3b 20 43 6f 75 6e 74 20 | 31 27 73 20 69 6e 20 74 |; Count |1's in t|
|00002380| 68 65 20 70 6f 73 69 74 | 69 76 65 20 32 27 73 20 |he posit|ive 2's |
|00002390| 63 6f 6d 70 20 72 65 70 | 0a 20 20 28 6c 65 74 20 |comp rep|. (let |
|000023a0| 28 28 78 20 28 69 66 20 | 28 3c 20 78 20 30 29 20 |((x (if |(< x 0) |
|000023b0| 28 62 69 74 77 69 73 65 | 2d 6e 6f 74 20 78 29 20 |(bitwise|-not x) |
|000023c0| 78 29 29 29 0a 20 20 20 | 20 28 64 6f 20 28 28 78 |x))). | (do ((x|
|000023d0| 20 78 20 28 61 72 69 74 | 68 6d 65 74 69 63 2d 73 | x (arit|hmetic-s|
|000023e0| 68 69 66 74 20 78 20 31 | 29 29 0a 09 20 28 72 65 |hift x 1|)).. (re|
|000023f0| 73 75 6c 74 20 30 20 28 | 2b 20 72 65 73 75 6c 74 |sult 0 (|+ result|
|00002400| 20 28 6d 6f 64 75 6c 6f | 20 78 20 32 29 29 29 29 | (modulo| x 2))))|
|00002410| 0a 09 28 28 3d 20 78 20 | 30 29 20 72 65 73 75 6c |..((= x |0) resul|
|00002420| 74 29 29 29 29 0a 0a 3b | 28 64 65 66 69 6e 65 20 |t))))..;|(define |
|00002430| 28 69 6e 74 65 67 65 72 | 2d 6c 65 6e 67 74 68 20 |(integer|-length |
|00002440| 69 6e 74 65 67 65 72 29 | 20 2e 2e 2e 29 20 3b 3f |integer)| ...) ;?|
|00002450| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 63 |scsh-0.4|.2/alt/c|
|00002610| 6c 6f 73 75 72 65 2e 73 | 63 6d 00 00 00 00 00 00 |losure.s|cm......|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00002670| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00002680| 20 20 20 20 36 34 34 20 | 20 36 30 33 37 36 32 37 | 644 | 6037627|
|00002690| 35 37 35 20 20 31 33 35 | 37 30 00 20 30 00 00 00 |575 135|70. 0...|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00002710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002720| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002800| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00002810| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00002820| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00002830| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00002840| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00002850| 0a 0a 0a 3b 20 43 6c 6f | 73 75 72 65 73 0a 0a 28 |...; Clo|sures..(|
|00002860| 64 65 66 69 6e 65 20 63 | 6c 6f 73 75 72 65 2d 72 |define c|losure-r|
|00002870| 74 64 20 20 20 20 20 20 | 28 6d 61 6b 65 2d 72 65 |td |(make-re|
|00002880| 63 6f 72 64 2d 74 79 70 | 65 20 27 63 6c 6f 73 75 |cord-typ|e 'closu|
|00002890| 72 65 20 27 28 74 65 6d | 70 6c 61 74 65 20 65 6e |re '(tem|plate en|
|000028a0| 76 29 29 29 0a 28 64 65 | 66 69 6e 65 20 63 6c 6f |v))).(de|fine clo|
|000028b0| 73 75 72 65 3f 20 20 20 | 20 20 20 20 20 20 28 72 |sure? | (r|
|000028c0| 65 63 6f 72 64 2d 70 72 | 65 64 69 63 61 74 65 20 |ecord-pr|edicate |
|000028d0| 63 6c 6f 73 75 72 65 2d | 72 74 64 29 29 0a 28 64 |closure-|rtd)).(d|
|000028e0| 65 66 69 6e 65 20 6d 61 | 6b 65 2d 63 6c 6f 73 75 |efine ma|ke-closu|
|000028f0| 72 65 20 20 20 20 20 28 | 72 65 63 6f 72 64 2d 63 |re (|record-c|
|00002900| 6f 6e 73 74 72 75 63 74 | 6f 72 20 63 6c 6f 73 75 |onstruct|or closu|
|00002910| 72 65 2d 72 74 64 20 27 | 28 74 65 6d 70 6c 61 74 |re-rtd '|(templat|
|00002920| 65 20 65 6e 76 29 29 29 | 0a 28 64 65 66 69 6e 65 |e env)))|.(define|
|00002930| 20 63 6c 6f 73 75 72 65 | 2d 74 65 6d 70 6c 61 74 | closure|-templat|
|00002940| 65 20 28 72 65 63 6f 72 | 64 2d 61 63 63 65 73 73 |e (recor|d-access|
|00002950| 6f 72 20 63 6c 6f 73 75 | 72 65 2d 72 74 64 20 27 |or closu|re-rtd '|
|00002960| 74 65 6d 70 6c 61 74 65 | 29 29 0a 28 64 65 66 69 |template|)).(defi|
|00002970| 6e 65 20 63 6c 6f 73 75 | 72 65 2d 65 6e 76 09 20 |ne closu|re-env. |
|00002980| 28 72 65 63 6f 72 64 2d | 61 63 63 65 73 73 6f 72 |(record-|accessor|
|00002990| 20 63 6c 6f 73 75 72 65 | 2d 72 74 64 20 27 65 6e | closure|-rtd 'en|
|000029a0| 76 29 29 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 |v)).....|........|
|000029b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a00| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 63 |scsh-0.4|.2/alt/c|
|00002a10| 6f 64 65 2d 76 65 63 74 | 6f 72 2e 73 63 6d 00 00 |ode-vect|or.scm..|
|00002a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a60| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00002a70| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00002a80| 20 20 20 31 31 35 32 20 | 20 36 30 33 37 36 32 37 | 1152 | 6037627|
|00002a90| 35 37 35 20 20 31 34 33 | 34 31 00 20 30 00 00 00 |575 143|41. 0...|
|00002aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b00| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00002b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b20| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00002b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c00| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00002c10| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00002c20| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00002c30| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00002c40| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00002c50| 0a 3b 20 43 6f 64 65 2d | 76 65 63 74 6f 72 73 20 |.; Code-|vectors |
|00002c60| 69 6d 70 6c 65 6d 65 6e | 74 65 64 20 61 73 20 76 |implemen|ted as v|
|00002c70| 65 63 74 6f 72 73 2e 0a | 0a 28 64 65 66 69 6e 65 |ectors..|.(define|
|00002c80| 20 2a 63 6f 64 65 2d 76 | 65 63 74 6f 72 2d 6d 61 | *code-v|ector-ma|
|00002c90| 72 6b 65 72 2a 20 28 6c | 69 73 74 20 27 2a 63 6f |rker* (l|ist '*co|
|00002ca0| 64 65 2d 76 65 63 74 6f | 72 2d 6d 61 72 6b 65 72 |de-vecto|r-marker|
|00002cb0| 2a 29 29 0a 0a 28 64 65 | 66 69 6e 65 20 28 6d 61 |*))..(de|fine (ma|
|00002cc0| 6b 65 2d 63 6f 64 65 2d | 76 65 63 74 6f 72 20 6c |ke-code-|vector l|
|00002cd0| 65 6e 20 69 6e 69 74 29 | 0a 20 20 28 6c 65 74 20 |en init)|. (let |
|00002ce0| 28 28 74 20 28 6d 61 6b | 65 2d 76 65 63 74 6f 72 |((t (mak|e-vector|
|00002cf0| 20 28 2b 20 6c 65 6e 20 | 31 29 20 69 6e 69 74 29 | (+ len |1) init)|
|00002d00| 29 29 0a 20 20 20 20 28 | 76 65 63 74 6f 72 2d 73 |)). (|vector-s|
|00002d10| 65 74 21 20 74 20 30 20 | 2a 63 6f 64 65 2d 76 65 |et! t 0 |*code-ve|
|00002d20| 63 74 6f 72 2d 6d 61 72 | 6b 65 72 2a 29 0a 20 20 |ctor-mar|ker*). |
|00002d30| 20 20 74 29 29 0a 0a 28 | 64 65 66 69 6e 65 20 28 | t))..(|define (|
|00002d40| 63 6f 64 65 2d 76 65 63 | 74 6f 72 3f 20 6f 62 6a |code-vec|tor? obj|
|00002d50| 29 0a 20 20 28 61 6e 64 | 20 28 76 65 63 74 6f 72 |). (and| (vector|
|00002d60| 3f 20 6f 62 6a 29 0a 20 | 20 20 20 20 20 20 28 3e |? obj). | (>|
|00002d70| 20 28 76 65 63 74 6f 72 | 2d 6c 65 6e 67 74 68 20 | (vector|-length |
|00002d80| 6f 62 6a 29 20 30 29 0a | 20 20 20 20 20 20 20 28 |obj) 0).| (|
|00002d90| 65 71 3f 20 28 76 65 63 | 74 6f 72 2d 72 65 66 20 |eq? (vec|tor-ref |
|00002da0| 6f 62 6a 20 30 29 20 2a | 63 6f 64 65 2d 76 65 63 |obj 0) *|code-vec|
|00002db0| 74 6f 72 2d 6d 61 72 6b | 65 72 2a 29 29 29 0a 0a |tor-mark|er*)))..|
|00002dc0| 28 64 65 66 69 6e 65 20 | 28 63 6f 64 65 2d 76 65 |(define |(code-ve|
|00002dd0| 63 74 6f 72 2d 6c 65 6e | 67 74 68 20 74 29 20 28 |ctor-len|gth t) (|
|00002de0| 2d 20 28 76 65 63 74 6f | 72 2d 6c 65 6e 67 74 68 |- (vecto|r-length|
|00002df0| 20 74 29 20 31 29 29 0a | 28 64 65 66 69 6e 65 20 | t) 1)).|(define |
|00002e00| 28 63 6f 64 65 2d 76 65 | 63 74 6f 72 2d 72 65 66 |(code-ve|ctor-ref|
|00002e10| 20 74 20 69 29 20 28 76 | 65 63 74 6f 72 2d 72 65 | t i) (v|ector-re|
|00002e20| 66 20 74 20 28 2b 20 69 | 20 31 29 29 29 0a 28 64 |f t (+ i| 1))).(d|
|00002e30| 65 66 69 6e 65 20 28 63 | 6f 64 65 2d 76 65 63 74 |efine (c|ode-vect|
|00002e40| 6f 72 2d 73 65 74 21 20 | 74 20 69 20 78 29 20 28 |or-set! |t i x) (|
|00002e50| 76 65 63 74 6f 72 2d 73 | 65 74 21 20 74 20 28 2b |vector-s|et! t (+|
|00002e60| 20 69 20 31 29 20 78 29 | 29 0a 00 00 00 00 00 00 | i 1) x)|).......|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 63 |scsh-0.4|.2/alt/c|
|00003010| 6f 6e 66 69 67 2e 73 63 | 6d 00 00 00 00 00 00 00 |onfig.sc|m.......|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003060| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00003070| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00003080| 20 20 31 32 33 31 30 20 | 20 36 30 33 37 36 32 37 | 12310 | 6037627|
|00003090| 35 37 35 20 20 31 33 34 | 31 32 00 20 30 00 00 00 |575 134|12. 0...|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00003130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003200| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00003210| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00003220| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00003230| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00003240| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00003250| 0a 0a 3b 20 53 74 75 62 | 20 73 75 70 70 6f 72 74 |..; Stub| support|
|00003260| 20 66 6f 72 20 44 45 46 | 49 4e 45 2d 50 41 43 4b | for DEF|INE-PACK|
|00003270| 41 47 45 20 61 6e 64 20 | 44 45 46 49 4e 45 2d 49 |AGE and |DEFINE-I|
|00003280| 4e 54 45 52 46 41 43 45 | 20 6d 61 63 72 6f 73 2e |NTERFACE| macros.|
|00003290| 0a 0a 3b 20 49 6e 74 65 | 72 66 61 63 65 73 20 61 |..; Inte|rfaces a|
|000032a0| 72 65 20 69 67 6e 6f 72 | 65 64 2e 20 20 4f 6e 6c |re ignor|ed. Onl|
|000032b0| 79 20 64 65 70 65 6e 64 | 65 6e 63 69 65 73 20 61 |y depend|encies a|
|000032c0| 72 65 20 73 69 67 6e 69 | 66 69 63 61 6e 74 2e 0a |re signi|ficant..|
|000032d0| 0a 0a 28 64 65 66 69 6e | 65 20 28 6c 6f 61 64 2d |..(defin|e (load-|
|000032e0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 66 69 |configur|ation fi|
|000032f0| 6c 65 6e 61 6d 65 20 2e | 20 72 65 73 74 29 0a 20 |lename .| rest). |
|00003300| 20 28 6c 65 74 20 28 28 | 73 61 76 65 20 66 69 6c | (let ((|save fil|
|00003310| 65 6e 61 6d 65 29 29 0a | 20 20 20 20 28 64 79 6e |ename)).| (dyn|
|00003320| 61 6d 69 63 2d 77 69 6e | 64 20 28 6c 61 6d 62 64 |amic-win|d (lambd|
|00003330| 61 20 28 29 20 28 73 65 | 74 21 20 2a 73 6f 75 72 |a () (se|t! *sour|
|00003340| 63 65 2d 66 69 6c 65 2d | 6e 61 6d 65 2a 20 66 69 |ce-file-|name* fi|
|00003350| 6c 65 6e 61 6d 65 29 29 | 0a 09 09 20 20 28 6c 61 |lename))|... (la|
|00003360| 6d 62 64 61 20 28 29 0a | 09 09 20 20 20 20 28 61 |mbda ().|.. (a|
|00003370| 70 70 6c 79 20 6c 6f 61 | 64 20 66 69 6c 65 6e 61 |pply loa|d filena|
|00003380| 6d 65 20 72 65 73 74 29 | 29 0a 09 09 20 20 28 6c |me rest)|)... (l|
|00003390| 61 6d 62 64 61 20 28 29 | 20 28 73 65 74 21 20 2a |ambda ()| (set! *|
|000033a0| 73 6f 75 72 63 65 2d 66 | 69 6c 65 2d 6e 61 6d 65 |source-f|ile-name|
|000033b0| 2a 20 73 61 76 65 29 29 | 29 29 29 0a 28 64 65 66 |* save))|))).(def|
|000033c0| 69 6e 65 20 28 25 66 69 | 6c 65 2d 6e 61 6d 65 25 |ine (%fi|le-name%|
|000033d0| 29 20 2a 73 6f 75 72 63 | 65 2d 66 69 6c 65 2d 6e |) *sourc|e-file-n|
|000033e0| 61 6d 65 2a 29 0a 28 64 | 65 66 69 6e 65 20 2a 73 |ame*).(d|efine *s|
|000033f0| 6f 75 72 63 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 2a |ource-fi|le-name*|
|00003400| 20 22 22 29 0a 0a 0a 3b | 20 54 68 69 73 20 69 73 | "")...;| This is|
|00003410| 20 75 73 65 64 20 74 6f | 20 67 65 6e 65 72 61 74 | used to| generat|
|00003420| 65 20 66 69 6c 65 20 6c | 69 73 74 73 20 74 68 61 |e file l|ists tha|
|00003430| 74 20 61 72 65 20 22 69 | 6e 63 6c 75 64 65 64 22 |t are "i|ncluded"|
|00003440| 20 69 6e 20 22 6d 61 6b | 65 66 69 6c 65 73 2e 22 | in "mak|efiles."|
|00003450| 0a 0a 28 64 65 66 69 6e | 65 20 28 77 72 69 74 65 |..(defin|e (write|
|00003460| 2d 66 69 6c 65 2d 6e 61 | 6d 65 73 20 74 61 72 67 |-file-na|mes targ|
|00003470| 65 74 20 2e 20 73 74 75 | 66 66 29 0a 20 20 28 63 |et . stu|ff). (c|
|00003480| 61 6c 6c 2d 77 69 74 68 | 2d 6f 75 74 70 75 74 2d |all-with|-output-|
|00003490| 66 69 6c 65 20 74 61 72 | 67 65 74 0a 20 20 20 20 |file tar|get. |
|000034a0| 28 6c 61 6d 62 64 61 20 | 28 70 6f 72 74 29 0a 20 |(lambda |(port). |
|000034b0| 20 20 20 20 20 28 64 69 | 73 70 6c 61 79 20 22 57 | (di|splay "W|
|000034c0| 72 69 74 69 6e 67 20 22 | 29 20 28 64 69 73 70 6c |riting "|) (displ|
|000034d0| 61 79 20 74 61 72 67 65 | 74 29 20 28 6e 65 77 6c |ay targe|t) (newl|
|000034e0| 69 6e 65 29 0a 20 20 20 | 20 20 20 28 64 69 73 70 |ine). | (disp|
|000034f0| 6c 61 79 20 22 23 23 23 | 23 20 54 68 69 73 20 66 |lay "###|# This f|
|00003500| 69 6c 65 20 77 61 73 20 | 67 65 6e 65 72 61 74 65 |ile was |generate|
|00003510| 64 20 61 75 74 6f 6d 61 | 74 69 63 61 6c 6c 79 2e |d automa|tically.|
|00003520| 20 23 23 23 23 22 0a 09 | 20 20 20 20 20 20 20 70 | ####"..| p|
|00003530| 6f 72 74 29 0a 20 20 20 | 20 20 20 28 6e 65 77 6c |ort). | (newl|
|00003540| 69 6e 65 20 70 6f 72 74 | 29 0a 20 20 20 20 20 20 |ine port|). |
|00003550| 28 6c 65 74 20 28 28 6d | 75 6d 62 6c 65 20 28 6c |(let ((m|umble (l|
|00003560| 61 6d 62 64 61 20 28 6e | 61 6d 65 20 66 69 6c 65 |ambda (n|ame file|
|00003570| 6e 61 6d 65 73 29 0a 09 | 09 20 20 20 20 20 20 28 |names)..|. (|
|00003580| 6e 65 77 6c 69 6e 65 20 | 70 6f 72 74 29 0a 09 09 |newline |port)...|
|00003590| 20 20 20 20 20 20 28 64 | 69 73 70 6c 61 79 20 6e | (d|isplay n|
|000035a0| 61 6d 65 20 70 6f 72 74 | 29 0a 09 09 20 20 20 20 |ame port|)... |
|000035b0| 20 20 28 64 69 73 70 6c | 61 79 20 22 20 3d 20 22 | (displ|ay " = "|
|000035c0| 20 70 6f 72 74 29 0a 09 | 09 20 20 20 20 20 20 28 | port)..|. (|
|000035d0| 66 6f 72 2d 65 61 63 68 | 20 28 6c 61 6d 62 64 61 |for-each| (lambda|
|000035e0| 20 28 66 69 6c 65 6e 61 | 6d 65 29 0a 09 09 09 09 | (filena|me).....|
|000035f0| 20 20 28 64 69 73 70 6c | 61 79 20 66 69 6c 65 6e | (displ|ay filen|
|00003600| 61 6d 65 20 70 6f 72 74 | 29 0a 09 09 09 09 20 20 |ame port|)..... |
|00003610| 28 64 69 73 70 6c 61 79 | 20 22 20 22 20 70 6f 72 |(display| " " por|
|00003620| 74 29 29 0a 09 09 09 09 | 66 69 6c 65 6e 61 6d 65 |t)).....|filename|
|00003630| 73 29 0a 09 09 20 20 20 | 20 20 20 28 6e 65 77 6c |s)... | (newl|
|00003640| 69 6e 65 20 70 6f 72 74 | 29 29 29 29 0a 09 28 64 |ine port|))))..(d|
|00003650| 6f 20 28 28 73 74 75 66 | 66 20 73 74 75 66 66 20 |o ((stuf|f stuff |
|00003660| 28 63 64 64 72 20 73 74 | 75 66 66 29 29 29 0a 09 |(cddr st|uff)))..|
|00003670| 20 20 20 20 28 28 6e 75 | 6c 6c 3f 20 73 74 75 66 | ((nu|ll? stuf|
|00003680| 66 29 29 0a 09 20 20 28 | 6d 75 6d 62 6c 65 20 28 |f)).. (|mumble (|
|00003690| 63 61 72 20 73 74 75 66 | 66 29 20 28 63 61 64 72 |car stuf|f) (cadr|
|000036a0| 20 73 74 75 66 66 29 29 | 29 0a 09 3b 28 6d 75 6d | stuff))|)..;(mum|
|000036b0| 62 6c 65 20 27 61 6c 6c | 2d 66 69 6c 65 73 20 28 |ble 'all|-files (|
|000036c0| 72 65 76 65 72 73 65 20 | 2a 61 6c 6c 2d 66 69 6c |reverse |*all-fil|
|000036d0| 65 73 2a 29 29 0a 09 29 | 29 29 29 0a 0a 0a 3b 20 |es*))..)|)))...; |
|000036e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000036f0| 2d 2d 2d 2d 0a 0a 28 64 | 65 66 69 6e 65 20 28 6d |----..(d|efine (m|
|00003700| 61 6b 65 2d 69 6e 64 69 | 72 65 63 74 2d 69 6e 74 |ake-indi|rect-int|
|00003710| 65 72 66 61 63 65 20 6e | 61 6d 65 20 74 68 75 6e |erface n|ame thun|
|00003720| 6b 29 0a 20 20 28 74 68 | 75 6e 6b 29 29 0a 0a 0a |k). (th|unk))...|
|00003730| 28 64 65 66 69 6e 65 20 | 28 6d 61 6b 65 2d 73 69 |(define |(make-si|
|00003740| 6d 70 6c 65 2d 69 6e 74 | 65 72 66 61 63 65 20 6e |mple-int|erface n|
|00003750| 61 6d 65 20 69 74 65 6d | 73 29 0a 20 20 28 63 6f |ame item|s). (co|
|00003760| 6e 73 20 27 65 78 70 6f | 72 74 20 69 74 65 6d 73 |ns 'expo|rt items|
|00003770| 29 29 0a 0a 28 64 65 66 | 69 6e 65 20 28 6d 61 6b |))..(def|ine (mak|
|00003780| 65 2d 63 6f 6d 70 6f 75 | 6e 64 2d 69 6e 74 65 72 |e-compou|nd-inter|
|00003790| 66 61 63 65 20 6e 61 6d | 65 20 2e 20 73 69 67 73 |face nam|e . sigs|
|000037a0| 29 0a 20 20 28 63 6f 6e | 73 20 27 63 6f 6d 70 6f |). (con|s 'compo|
|000037b0| 75 6e 64 2d 69 6e 74 65 | 72 66 61 63 65 20 73 69 |und-inte|rface si|
|000037c0| 67 73 29 29 0a 0a 0a 3b | 20 53 74 72 75 63 74 75 |gs))...;| Structu|
|000037d0| 72 65 73 20 61 72 65 20 | 76 69 65 77 73 20 69 6e |res are |views in|
|000037e0| 74 6f 20 70 61 63 6b 61 | 67 65 73 2e 0a 3b 20 49 |to packa|ges..; I|
|000037f0| 6e 20 74 68 69 73 20 69 | 6d 70 6c 65 6d 65 6e 74 |n this i|mplement|
|00003800| 61 74 69 6f 6e 2c 20 69 | 6e 74 65 72 66 61 63 65 |ation, i|nterface|
|00003810| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 69 73 20 | informa|tion is |
|00003820| 63 6f 6d 70 6c 65 74 65 | 6c 79 20 69 67 6e 6f 72 |complete|ly ignor|
|00003830| 65 64 2e 0a 0a 28 64 65 | 66 69 6e 65 2d 73 79 6e |ed...(de|fine-syn|
|00003840| 74 61 78 20 6d 61 6b 65 | 2d 73 74 72 75 63 74 75 |tax make|-structu|
|00003850| 72 65 0a 20 20 28 73 79 | 6e 74 61 78 2d 72 75 6c |re. (sy|ntax-rul|
|00003860| 65 73 20 28 29 0a 20 20 | 20 20 28 28 6d 61 6b 65 |es (). | ((make|
|00003870| 2d 73 74 72 75 63 74 75 | 72 65 20 3f 70 61 63 6b |-structu|re ?pack|
|00003880| 61 67 65 20 3f 69 6e 74 | 65 72 66 61 63 65 20 3f |age ?int|erface ?|
|00003890| 6e 61 6d 65 29 0a 20 20 | 20 20 20 28 76 65 63 74 |name). | (vect|
|000038a0| 6f 72 20 27 3c 73 74 72 | 75 63 74 75 72 65 3e 20 |or '<str|ucture> |
|000038b0| 3f 6e 61 6d 65 20 3f 70 | 61 63 6b 61 67 65 29 29 |?name ?p|ackage))|
|000038c0| 0a 20 20 20 20 28 28 6d | 61 6b 65 2d 73 74 72 75 |. ((m|ake-stru|
|000038d0| 63 74 75 72 65 20 3f 70 | 61 63 6b 61 67 65 20 3f |cture ?p|ackage ?|
|000038e0| 69 6e 74 65 72 66 61 63 | 65 29 0a 20 20 20 20 20 |interfac|e). |
|000038f0| 28 6d 61 6b 65 2d 73 74 | 72 75 63 74 75 72 65 20 |(make-st|ructure |
|00003900| 3f 70 61 63 6b 61 67 65 | 20 3f 69 6e 74 65 72 66 |?package| ?interf|
|00003910| 61 63 65 20 23 66 29 29 | 29 29 0a 0a 28 64 65 66 |ace #f))|))..(def|
|00003920| 69 6e 65 20 28 73 74 72 | 75 63 74 75 72 65 2d 6e |ine (str|ucture-n|
|00003930| 61 6d 65 20 73 29 20 28 | 76 65 63 74 6f 72 2d 72 |ame s) (|vector-r|
|00003940| 65 66 20 73 20 31 29 29 | 0a 28 64 65 66 69 6e 65 |ef s 1))|.(define|
|00003950| 20 28 73 74 72 75 63 74 | 75 72 65 2d 70 61 63 6b | (struct|ure-pack|
|00003960| 61 67 65 20 73 29 20 28 | 76 65 63 74 6f 72 2d 72 |age s) (|vector-r|
|00003970| 65 66 20 73 20 32 29 29 | 0a 0a 28 64 65 66 69 6e |ef s 2))|..(defin|
|00003980| 65 20 28 76 65 72 69 66 | 79 2d 6c 61 74 65 72 21 |e (verif|y-later!|
|00003990| 20 74 68 75 6e 6b 29 20 | 27 6c 6f 73 65 29 0a 3b | thunk) |'lose).;|
|000039a0| 28 64 65 66 69 6e 65 20 | 2a 61 6c 6c 2d 66 69 6c |(define |*all-fil|
|000039b0| 65 73 2a 20 27 28 29 29 | 0a 0a 0a 3b 20 50 61 63 |es* '())|...; Pac|
|000039c0| 6b 61 67 65 73 20 61 72 | 65 20 6e 6f 74 20 77 68 |kages ar|e not wh|
|000039d0| 61 74 20 74 68 65 79 20 | 61 70 70 65 61 72 20 74 |at they |appear t|
|000039e0| 6f 20 62 65 2e 0a 0a 28 | 64 65 66 69 6e 65 20 28 |o be...(|define (|
|000039f0| 6d 61 6b 65 2d 61 2d 70 | 61 63 6b 61 67 65 20 6f |make-a-p|ackage o|
|00003a00| 70 65 6e 73 2d 74 68 75 | 6e 6b 20 61 63 63 65 73 |pens-thu|nk acces|
|00003a10| 73 65 73 2d 74 68 75 6e | 6b 20 74 6f 77 65 72 0a |ses-thun|k tower.|
|00003a20| 09 09 09 66 69 6c 65 2d | 6e 61 6d 65 20 63 6c 61 |...file-|name cla|
|00003a30| 75 73 65 73 20 6e 61 6d | 65 29 0a 20 20 28 76 65 |uses nam|e). (ve|
|00003a40| 63 74 6f 72 20 27 3c 61 | 2d 70 61 63 6b 61 67 65 |ctor '<a|-package|
|00003a50| 3e 0a 09 20 20 28 64 65 | 6c 61 79 20 28 6f 70 65 |>.. (de|lay (ope|
|00003a60| 6e 73 2d 74 68 75 6e 6b | 29 29 0a 09 20 20 28 64 |ns-thunk|)).. (d|
|00003a70| 65 6c 61 79 20 28 61 63 | 63 65 73 73 65 73 2d 74 |elay (ac|cesses-t|
|00003a80| 68 75 6e 6b 29 29 0a 09 | 20 20 66 69 6c 65 2d 6e |hunk))..| file-n|
|00003a90| 61 6d 65 0a 09 20 20 63 | 6c 61 75 73 65 73 0a 09 |ame.. c|lauses..|
|00003aa0| 20 20 23 66 29 29 0a 0a | 28 64 65 66 69 6e 65 20 | #f))..|(define |
|00003ab0| 28 70 61 63 6b 61 67 65 | 2d 6f 70 65 6e 73 20 70 |(package|-opens p|
|00003ac0| 29 20 20 20 20 20 28 66 | 6f 72 63 65 20 28 76 65 |) (f|orce (ve|
|00003ad0| 63 74 6f 72 2d 72 65 66 | 20 70 20 31 29 29 29 0a |ctor-ref| p 1))).|
|00003ae0| 28 64 65 66 69 6e 65 20 | 28 70 61 63 6b 61 67 65 |(define |(package|
|00003af0| 2d 61 63 63 65 73 73 65 | 73 20 70 29 20 20 28 66 |-accesse|s p) (f|
|00003b00| 6f 72 63 65 20 28 76 65 | 63 74 6f 72 2d 72 65 66 |orce (ve|ctor-ref|
|00003b10| 20 70 20 32 29 29 29 0a | 28 64 65 66 69 6e 65 20 | p 2))).|(define |
|00003b20| 28 70 61 63 6b 61 67 65 | 2d 66 69 6c 65 2d 6e 61 |(package|-file-na|
|00003b30| 6d 65 20 70 29 20 28 76 | 65 63 74 6f 72 2d 72 65 |me p) (v|ector-re|
|00003b40| 66 20 70 20 33 29 29 0a | 28 64 65 66 69 6e 65 20 |f p 3)).|(define |
|00003b50| 28 70 61 63 6b 61 67 65 | 2d 63 6c 61 75 73 65 73 |(package|-clauses|
|00003b60| 20 70 29 20 20 20 28 76 | 65 63 74 6f 72 2d 72 65 | p) (v|ector-re|
|00003b70| 66 20 70 20 34 29 29 0a | 28 64 65 66 69 6e 65 20 |f p 4)).|(define |
|00003b80| 28 70 61 63 6b 61 67 65 | 2d 6c 6f 61 64 65 64 3f |(package|-loaded?|
|00003b90| 20 70 29 20 28 76 65 63 | 74 6f 72 2d 72 65 66 20 | p) (vec|tor-ref |
|00003ba0| 70 20 35 29 29 0a 28 64 | 65 66 69 6e 65 20 28 73 |p 5)).(d|efine (s|
|00003bb0| 65 74 2d 70 61 63 6b 61 | 67 65 2d 6c 6f 61 64 65 |et-packa|ge-loade|
|00003bc0| 64 3f 21 20 70 20 3f 29 | 20 28 76 65 63 74 6f 72 |d?! p ?)| (vector|
|00003bd0| 2d 73 65 74 21 20 70 20 | 35 20 3f 29 29 0a 0a 28 |-set! p |5 ?))..(|
|00003be0| 64 65 66 69 6e 65 20 64 | 75 6d 6d 79 2d 70 61 63 |define d|ummy-pac|
|00003bf0| 6b 61 67 65 0a 20 20 28 | 6d 61 6b 65 2d 61 2d 70 |kage. (|make-a-p|
|00003c00| 61 63 6b 61 67 65 20 28 | 6c 61 6d 62 64 61 20 28 |ackage (|lambda (|
|00003c10| 29 20 27 28 29 29 20 28 | 6c 61 6d 62 64 61 20 28 |) '()) (|lambda (|
|00003c20| 29 20 27 28 29 29 20 23 | 66 20 22 22 20 27 28 29 |) '()) #|f "" '()|
|00003c30| 20 23 66 29 29 0a 0a 3b | 20 73 6f 75 72 63 65 2d | #f))..;| source-|
|00003c40| 66 69 6c 65 2d 6e 61 6d | 65 73 20 20 3f 0a 28 64 |file-nam|es ?.(d|
|00003c50| 65 66 69 6e 65 20 6d 6f | 64 75 6c 65 2d 73 79 73 |efine mo|dule-sys|
|00003c60| 74 65 6d 20 28 6d 61 6b | 65 2d 73 74 72 75 63 74 |tem (mak|e-struct|
|00003c70| 75 72 65 20 64 75 6d 6d | 79 2d 70 61 63 6b 61 67 |ure dumm|y-packag|
|00003c80| 65 20 23 66 20 27 6d 6f | 64 75 6c 65 2d 73 79 73 |e #f 'mo|dule-sys|
|00003c90| 74 65 6d 29 29 0a 28 64 | 65 66 69 6e 65 20 73 63 |tem)).(d|efine sc|
|00003ca0| 68 65 6d 65 20 28 6d 61 | 6b 65 2d 73 74 72 75 63 |heme (ma|ke-struc|
|00003cb0| 74 75 72 65 20 64 75 6d | 6d 79 2d 70 61 63 6b 61 |ture dum|my-packa|
|00003cc0| 67 65 20 23 66 20 27 73 | 63 68 65 6d 65 29 29 0a |ge #f 's|cheme)).|
|00003cd0| 28 64 65 66 69 6e 65 20 | 62 75 69 6c 74 2d 69 6e |(define |built-in|
|00003ce0| 2d 73 74 72 75 63 74 75 | 72 65 73 0a 20 20 28 6d |-structu|res. (m|
|00003cf0| 61 6b 65 2d 73 74 72 75 | 63 74 75 72 65 20 64 75 |ake-stru|cture du|
|00003d00| 6d 6d 79 2d 70 61 63 6b | 61 67 65 20 23 66 20 27 |mmy-pack|age #f '|
|00003d10| 62 75 69 6c 74 2d 69 6e | 2d 73 74 72 75 63 74 75 |built-in|-structu|
|00003d20| 72 65 73 29 29 0a 0a 28 | 64 65 66 69 6e 65 20 28 |res))..(|define (|
|00003d30| 6e 6f 74 65 2d 6e 61 6d | 65 21 20 74 68 69 6e 67 |note-nam|e! thing|
|00003d40| 20 6e 61 6d 65 29 0a 20 | 20 74 68 69 6e 67 29 0a | name). | thing).|
|00003d50| 0a 0a 3b 20 48 61 6e 64 | 79 0a 0a 28 64 65 66 69 |..; Hand|y..(defi|
|00003d60| 6e 65 20 28 73 65 74 64 | 69 66 66 20 6c 31 20 6c |ne (setd|iff l1 l|
|00003d70| 32 29 0a 20 20 28 63 6f | 6e 64 20 28 28 6e 75 6c |2). (co|nd ((nul|
|00003d80| 6c 3f 20 6c 32 29 20 6c | 31 29 0a 09 28 28 6e 75 |l? l2) l|1)..((nu|
|00003d90| 6c 6c 3f 20 6c 31 29 20 | 6c 31 29 0a 09 28 28 6d |ll? l1) |l1)..((m|
|00003da0| 65 6d 62 65 72 20 28 63 | 61 72 20 6c 31 29 20 6c |ember (c|ar l1) l|
|00003db0| 32 29 0a 09 20 28 73 65 | 74 64 69 66 66 20 28 63 |2).. (se|tdiff (c|
|00003dc0| 64 72 20 6c 31 29 20 6c | 32 29 29 0a 09 28 65 6c |dr l1) l|2))..(el|
|00003dd0| 73 65 20 28 63 6f 6e 73 | 20 28 63 61 72 20 6c 31 |se (cons| (car l1|
|00003de0| 29 0a 09 09 20 20 20 20 | 28 73 65 74 64 69 66 66 |)... |(setdiff|
|00003df0| 20 28 63 64 72 20 6c 31 | 29 20 6c 32 29 29 29 29 | (cdr l1|) l2))))|
|00003e00| 29 0a 0a 0a 3b 20 53 74 | 75 66 66 20 63 6f 70 69 |)...; St|uff copi|
|00003e10| 65 64 20 66 72 6f 6d 20 | 72 74 73 2f 66 69 6c 65 |ed from |rts/file|
|00003e20| 6e 61 6d 65 2e 73 63 6d | 2e 2e 2e 20 75 67 68 2e |name.scm|... ugh.|
|00003e30| 2e 2e 0a 0a 3b 20 4e 61 | 6d 65 6c 69 73 74 20 3d |....; Na|melist =|
|00003e40| 20 28 28 64 69 72 20 2e | 2e 2e 29 20 62 61 73 65 | ((dir .|..) base|
|00003e50| 6e 61 6d 65 20 74 79 70 | 65 29 0a 3b 20 20 20 20 |name typ|e).; |
|00003e60| 20 20 20 20 20 6f 72 20 | 28 28 64 69 72 20 2e 2e | or |((dir ..|
|00003e70| 2e 29 20 62 61 73 65 6e | 61 6d 65 29 0a 3b 09 20 |.) basen|ame).;. |
|00003e80| 20 6f 72 20 28 64 69 72 | 20 62 61 73 65 6e 61 6d | or (dir| basenam|
|00003e90| 65 20 74 79 70 65 29 0a | 3b 09 20 20 6f 72 20 28 |e type).|;. or (|
|00003ea0| 64 69 72 20 62 61 73 65 | 6e 61 6d 65 29 0a 3b 09 |dir base|name).;.|
|00003eb0| 20 20 6f 72 20 62 61 73 | 65 6e 61 6d 65 0a 0a 28 | or bas|ename..(|
|00003ec0| 64 65 66 69 6e 65 20 28 | 6e 61 6d 65 73 74 72 69 |define (|namestri|
|00003ed0| 6e 67 20 6e 61 6d 65 6c | 69 73 74 20 64 69 72 20 |ng namel|ist dir |
|00003ee0| 64 65 66 61 75 6c 74 2d | 74 79 70 65 29 0a 20 20 |default-|type). |
|00003ef0| 28 6c 65 74 20 28 28 6e | 61 6d 65 6c 69 73 74 20 |(let ((n|amelist |
|00003f00| 28 69 66 20 28 6c 69 73 | 74 3f 20 6e 61 6d 65 6c |(if (lis|t? namel|
|00003f10| 69 73 74 29 20 6e 61 6d | 65 6c 69 73 74 20 28 6c |ist) nam|elist (l|
|00003f20| 69 73 74 20 27 28 29 20 | 6e 61 6d 65 6c 69 73 74 |ist '() |namelist|
|00003f30| 29 29 29 29 0a 20 20 20 | 20 28 6c 65 74 20 28 28 |)))). | (let ((|
|00003f40| 73 75 62 64 69 72 73 20 | 28 69 66 20 28 6c 69 73 |subdirs |(if (lis|
|00003f50| 74 3f 20 28 63 61 72 20 | 6e 61 6d 65 6c 69 73 74 |t? (car |namelist|
|00003f60| 29 29 0a 09 09 20 20 20 | 20 20 20 20 28 63 61 72 |))... | (car|
|00003f70| 20 6e 61 6d 65 6c 69 73 | 74 29 0a 09 09 20 20 20 | namelis|t)... |
|00003f80| 20 20 20 20 28 6c 69 73 | 74 20 28 63 61 72 20 6e | (lis|t (car n|
|00003f90| 61 6d 65 6c 69 73 74 29 | 29 29 29 0a 09 20 20 28 |amelist)|))).. (|
|00003fa0| 62 61 73 65 6e 61 6d 65 | 20 28 63 61 64 72 20 6e |basename| (cadr n|
|00003fb0| 61 6d 65 6c 69 73 74 29 | 29 0a 09 20 20 28 74 79 |amelist)|).. (ty|
|00003fc0| 70 65 20 28 69 66 20 28 | 6e 75 6c 6c 3f 20 28 63 |pe (if (|null? (c|
|00003fd0| 64 64 72 20 6e 61 6d 65 | 6c 69 73 74 29 29 0a 09 |ddr name|list))..|
|00003fe0| 09 20 20 20 20 64 65 66 | 61 75 6c 74 2d 74 79 70 |. def|ault-typ|
|00003ff0| 65 0a 09 09 20 20 20 20 | 28 63 61 64 64 72 20 6e |e... |(caddr n|
|00004000| 61 6d 65 6c 69 73 74 29 | 29 29 29 0a 20 20 20 20 |amelist)|))). |
|00004010| 20 20 28 73 74 72 69 6e | 67 2d 61 70 70 65 6e 64 | (strin|g-append|
|00004020| 20 28 6f 72 20 64 69 72 | 20 22 22 29 0a 09 09 20 | (or dir| "")... |
|00004030| 20 20 20 20 28 61 70 70 | 6c 79 20 73 74 72 69 6e | (app|ly strin|
|00004040| 67 2d 61 70 70 65 6e 64 | 0a 09 09 09 20 20 20 20 |g-append|.... |
|00004050| 28 6d 61 70 20 28 6c 61 | 6d 62 64 61 20 28 73 75 |(map (la|mbda (su|
|00004060| 62 64 69 72 29 0a 09 09 | 09 09 20 20 20 28 73 74 |bdir)...|.. (st|
|00004070| 72 69 6e 67 2d 61 70 70 | 65 6e 64 0a 09 09 09 09 |ring-app|end.....|
|00004080| 20 20 20 20 20 20 28 6e | 61 6d 65 73 74 72 69 6e | (n|amestrin|
|00004090| 67 2d 63 6f 6d 70 6f 6e | 65 6e 74 20 73 75 62 64 |g-compon|ent subd|
|000040a0| 69 72 29 0a 09 09 09 09 | 20 20 20 20 20 20 64 69 |ir).....| di|
|000040b0| 72 65 63 74 6f 72 79 2d | 63 6f 6d 70 6f 6e 65 6e |rectory-|componen|
|000040c0| 74 2d 73 65 70 61 72 61 | 74 6f 72 29 29 0a 09 09 |t-separa|tor))...|
|000040d0| 09 09 20 73 75 62 64 69 | 72 73 29 29 0a 09 09 20 |.. subdi|rs))... |
|000040e0| 20 20 20 20 28 6e 61 6d | 65 73 74 72 69 6e 67 2d | (nam|estring-|
|000040f0| 63 6f 6d 70 6f 6e 65 6e | 74 20 62 61 73 65 6e 61 |componen|t basena|
|00004100| 6d 65 29 0a 09 09 20 20 | 20 20 20 28 69 66 20 74 |me)... | (if t|
|00004110| 79 70 65 0a 09 09 09 20 | 28 73 74 72 69 6e 67 2d |ype.... |(string-|
|00004120| 61 70 70 65 6e 64 20 74 | 79 70 65 2d 63 6f 6d 70 |append t|ype-comp|
|00004130| 6f 6e 65 6e 74 2d 73 65 | 70 61 72 61 74 6f 72 0a |onent-se|parator.|
|00004140| 09 09 09 09 09 28 6e 61 | 6d 65 73 74 72 69 6e 67 |.....(na|mestring|
|00004150| 2d 63 6f 6d 70 6f 6e 65 | 6e 74 20 74 79 70 65 29 |-compone|nt type)|
|00004160| 29 0a 09 09 09 20 22 22 | 29 29 29 29 29 0a 0a 28 |).... ""|)))))..(|
|00004170| 64 65 66 69 6e 65 20 64 | 69 72 65 63 74 6f 72 79 |define d|irectory|
|00004180| 2d 63 6f 6d 70 6f 6e 65 | 6e 74 2d 73 65 70 61 72 |-compone|nt-separ|
|00004190| 61 74 6f 72 20 22 2f 22 | 29 20 3b 75 6e 69 78 20 |ator "/"|) ;unix |
|000041a0| 73 75 78 0a 28 64 65 66 | 69 6e 65 20 74 79 70 65 |sux.(def|ine type|
|000041b0| 2d 63 6f 6d 70 6f 6e 65 | 6e 74 2d 73 65 70 61 72 |-compone|nt-separ|
|000041c0| 61 74 6f 72 20 22 2e 22 | 29 0a 0a 28 64 65 66 69 |ator "."|)..(defi|
|000041d0| 6e 65 20 28 6e 61 6d 65 | 73 74 72 69 6e 67 2d 63 |ne (name|string-c|
|000041e0| 6f 6d 70 6f 6e 65 6e 74 | 20 78 29 0a 20 20 28 63 |omponent| x). (c|
|000041f0| 6f 6e 64 20 28 28 73 74 | 72 69 6e 67 3f 20 78 29 |ond ((st|ring? x)|
|00004200| 20 78 29 0a 09 28 28 73 | 79 6d 62 6f 6c 3f 20 78 | x)..((s|ymbol? x|
|00004210| 29 0a 09 20 28 6c 69 73 | 74 2d 3e 73 74 72 69 6e |).. (lis|t->strin|
|00004220| 67 20 28 6d 61 70 20 66 | 69 6c 65 2d 6e 61 6d 65 |g (map f|ile-name|
|00004230| 2d 70 72 65 66 65 72 72 | 65 64 2d 63 61 73 65 0a |-preferr|ed-case.|
|00004240| 09 09 09 20 20 20 20 28 | 73 74 72 69 6e 67 2d 3e |... (|string->|
|00004250| 6c 69 73 74 20 28 73 79 | 6d 62 6f 6c 2d 3e 73 74 |list (sy|mbol->st|
|00004260| 72 69 6e 67 20 78 29 29 | 29 29 29 0a 09 28 65 6c |ring x))|)))..(el|
|00004270| 73 65 0a 09 20 3b 3b 20 | 28 65 72 72 6f 72 20 22 |se.. ;; |(error "|
|00004280| 62 6f 67 75 73 20 6e 61 | 6d 65 6c 69 73 74 20 63 |bogus na|melist c|
|00004290| 6f 6d 70 6f 6e 65 6e 74 | 22 20 78 29 0a 09 20 22 |omponent|" x).. "|
|000042a0| 62 6f 67 75 73 20 6e 61 | 6d 65 6c 69 73 74 20 63 |bogus na|melist c|
|000042b0| 6f 6d 70 6f 6e 65 6e 74 | 22 29 29 29 0a 0a 28 64 |omponent|")))..(d|
|000042c0| 65 66 69 6e 65 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |efine fi|le-name-|
|000042d0| 70 72 65 66 65 72 72 65 | 64 2d 63 61 73 65 20 63 |preferre|d-case c|
|000042e0| 68 61 72 2d 64 6f 77 6e | 63 61 73 65 29 0a 0a 28 |har-down|case)..(|
|000042f0| 64 65 66 69 6e 65 20 2a | 73 63 68 65 6d 65 2d 66 |define *|scheme-f|
|00004300| 69 6c 65 2d 74 79 70 65 | 2a 20 27 73 63 6d 29 0a |ile-type|* 'scm).|
|00004310| 28 64 65 66 69 6e 65 20 | 2a 6c 6f 61 64 2d 66 69 |(define |*load-fi|
|00004320| 6c 65 2d 74 79 70 65 2a | 20 2a 73 63 68 65 6d 65 |le-type*| *scheme|
|00004330| 2d 66 69 6c 65 2d 74 79 | 70 65 2a 29 20 20 3b 23 |-file-ty|pe*) ;#|
|00004340| 46 20 66 6f 72 20 50 73 | 65 75 64 6f 73 63 68 65 |F for Ps|eudosche|
|00004350| 6d 65 20 6f 72 20 54 0a | 0a 28 64 65 66 69 6e 65 |me or T.|.(define|
|00004360| 20 28 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 | (file-n|ame-dire|
|00004370| 63 74 6f 72 79 20 66 69 | 6c 65 6e 61 6d 65 29 0a |ctory fi|lename).|
|00004380| 20 20 28 73 75 62 73 74 | 72 69 6e 67 20 66 69 6c | (subst|ring fil|
|00004390| 65 6e 61 6d 65 20 30 20 | 28 66 69 6c 65 2d 6e 6f |ename 0 |(file-no|
|000043a0| 6e 64 69 72 65 63 74 6f | 72 79 2d 70 6f 73 69 74 |ndirecto|ry-posit|
|000043b0| 69 6f 6e 20 66 69 6c 65 | 6e 61 6d 65 29 29 29 0a |ion file|name))).|
|000043c0| 0a 28 64 65 66 69 6e 65 | 20 28 66 69 6c 65 2d 6e |.(define| (file-n|
|000043d0| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|000043e0| 20 66 69 6c 65 6e 61 6d | 65 29 0a 20 20 28 73 75 | filenam|e). (su|
|000043f0| 62 73 74 72 69 6e 67 20 | 66 69 6c 65 6e 61 6d 65 |bstring |filename|
|00004400| 0a 09 20 20 20 20 20 28 | 66 69 6c 65 2d 6e 6f 6e |.. (|file-non|
|00004410| 64 69 72 65 63 74 6f 72 | 79 2d 70 6f 73 69 74 69 |director|y-positi|
|00004420| 6f 6e 20 66 69 6c 65 6e | 61 6d 65 29 0a 09 20 20 |on filen|ame).. |
|00004430| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 6e 67 74 | (stri|ng-lengt|
|00004440| 68 20 66 69 6c 65 6e 61 | 6d 65 29 29 29 0a 0a 28 |h filena|me)))..(|
|00004450| 64 65 66 69 6e 65 20 28 | 66 69 6c 65 2d 6e 6f 6e |define (|file-non|
|00004460| 64 69 72 65 63 74 6f 72 | 79 2d 70 6f 73 69 74 69 |director|y-positi|
|00004470| 6f 6e 20 66 69 6c 65 6e | 61 6d 65 29 0a 20 20 28 |on filen|ame). (|
|00004480| 6c 65 74 20 6c 6f 6f 70 | 20 28 28 69 20 28 2d 20 |let loop| ((i (- |
|00004490| 28 73 74 72 69 6e 67 2d | 6c 65 6e 67 74 68 20 66 |(string-|length f|
|000044a0| 69 6c 65 6e 61 6d 65 29 | 20 31 29 29 29 0a 20 20 |ilename)| 1))). |
|000044b0| 20 20 28 63 6f 6e 64 20 | 28 28 3c 20 69 20 30 29 | (cond |((< i 0)|
|000044c0| 20 30 29 0a 09 20 20 3b | 3b 20 48 65 75 72 69 73 | 0).. ;|; Heuris|
|000044d0| 74 69 63 2e 20 20 53 68 | 6f 75 6c 64 20 77 6f 72 |tic. Sh|ould wor|
|000044e0| 6b 20 66 6f 72 20 44 4f | 53 2c 20 55 6e 69 78 2c |k for DO|S, Unix,|
|000044f0| 20 56 4d 53 2c 20 4d 61 | 63 4f 53 2e 0a 20 20 20 | VMS, Ma|cOS.. |
|00004500| 20 20 20 20 20 20 20 28 | 28 73 74 72 69 6e 67 2d | (|(string-|
|00004510| 70 6f 73 71 20 28 73 74 | 72 69 6e 67 2d 72 65 66 |posq (st|ring-ref|
|00004520| 20 66 69 6c 65 6e 61 6d | 65 20 69 29 20 22 2f 3a | filenam|e i) "/:|
|00004530| 3e 5d 5c 5c 22 29 20 28 | 2b 20 69 20 31 29 29 0a |>]\\") (|+ i 1)).|
|00004540| 20 20 20 20 20 20 20 20 | 20 20 28 65 6c 73 65 20 | | (else |
|00004550| 28 6c 6f 6f 70 20 28 2d | 20 69 20 31 29 29 29 29 |(loop (-| i 1))))|
|00004560| 29 29 0a 0a 28 64 65 66 | 69 6e 65 20 28 73 74 72 |))..(def|ine (str|
|00004570| 69 6e 67 2d 70 6f 73 71 | 20 74 68 69 6e 67 20 73 |ing-posq| thing s|
|00004580| 29 0a 20 20 28 6c 65 74 | 20 6c 6f 6f 70 20 28 28 |). (let| loop ((|
|00004590| 69 20 30 29 29 0a 20 20 | 20 20 28 63 6f 6e 64 20 |i 0)). | (cond |
|000045a0| 28 28 3e 3d 20 69 20 28 | 73 74 72 69 6e 67 2d 6c |((>= i (|string-l|
|000045b0| 65 6e 67 74 68 20 73 29 | 29 20 23 66 29 0a 20 20 |ength s)|) #f). |
|000045c0| 20 20 20 20 20 20 20 20 | 28 28 65 71 3f 20 74 68 | |((eq? th|
|000045d0| 69 6e 67 20 28 73 74 72 | 69 6e 67 2d 72 65 66 20 |ing (str|ing-ref |
|000045e0| 73 20 69 29 29 20 69 29 | 0a 20 20 20 20 20 20 20 |s i)) i)|. |
|000045f0| 20 20 20 28 65 6c 73 65 | 20 28 6c 6f 6f 70 20 28 | (else| (loop (|
|00004600| 2b 20 69 20 31 29 29 29 | 29 29 29 0a 0a 3b 20 54 |+ i 1)))|)))..; T|
|00004610| 79 70 65 73 0a 28 64 65 | 66 69 6e 65 20 3a 76 61 |ypes.(de|fine :va|
|00004620| 6c 75 65 20 27 3a 76 61 | 6c 75 65 29 0a 28 64 65 |lue ':va|lue).(de|
|00004630| 66 69 6e 65 20 3a 73 79 | 6e 74 61 78 20 27 3a 73 |fine :sy|ntax ':s|
|00004640| 79 6e 74 61 78 29 0a 28 | 64 65 66 69 6e 65 20 3a |yntax).(|define :|
|00004650| 73 74 72 75 63 74 75 72 | 65 20 27 3a 73 74 72 75 |structur|e ':stru|
|00004660| 63 74 75 72 65 29 0a 28 | 64 65 66 69 6e 65 20 3a |cture).(|define :|
|00004670| 70 72 6f 63 65 64 75 72 | 65 20 27 3a 70 72 6f 63 |procedur|e ':proc|
|00004680| 65 64 75 72 65 29 0a 28 | 64 65 66 69 6e 65 20 3a |edure).(|define :|
|00004690| 6e 75 6d 62 65 72 20 27 | 3a 6e 75 6d 62 65 72 29 |number '|:number)|
|000046a0| 0a 0a 0a 28 64 65 66 69 | 6e 65 2d 72 65 66 6c 65 |...(defi|ne-refle|
|000046b0| 63 74 69 76 65 2d 74 6f | 77 65 72 2d 6d 61 6b 65 |ctive-to|wer-make|
|000046c0| 72 20 6c 69 73 74 29 0a | 00 00 00 00 00 00 00 00 |r list).|........|
|000046d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004800| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 63 |scsh-0.4|.2/alt/c|
|00004810| 6f 6e 74 69 6e 2e 73 63 | 6d 00 00 00 00 00 00 00 |ontin.sc|m.......|
|00004820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004860| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00004870| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00004880| 20 20 20 31 31 36 35 20 | 20 36 30 33 37 36 32 37 | 1165 | 6037627|
|00004890| 35 37 35 20 20 31 33 34 | 32 35 00 20 30 00 00 00 |575 134|25. 0...|
|000048a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004900| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00004910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004920| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00004930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a00| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00004a10| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00004a20| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00004a30| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00004a40| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00004a50| 0a 0a 3b 20 43 6f 6e 74 | 69 6e 75 61 74 69 6f 6e |..; Cont|inuation|
|00004a60| 73 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 20 61 73 |s implem|ented as|
|00004a70| 20 76 65 63 74 6f 72 73 | 2e 0a 0a 28 64 65 66 69 | vectors|...(defi|
|00004a80| 6e 65 20 2a 63 6f 6e 74 | 69 6e 75 61 74 69 6f 6e |ne *cont|inuation|
|00004a90| 2d 6d 61 72 6b 65 72 2a | 20 28 6c 69 73 74 20 27 |-marker*| (list '|
|00004aa0| 2a 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 2d 6d 61 |*continu|ation-ma|
|00004ab0| 72 6b 65 72 2a 29 29 0a | 0a 28 64 65 66 69 6e 65 |rker*)).|.(define|
|00004ac0| 20 28 6d 61 6b 65 2d 63 | 6f 6e 74 69 6e 75 61 74 | (make-c|ontinuat|
|00004ad0| 69 6f 6e 20 6c 65 6e 20 | 69 6e 69 74 29 0a 20 20 |ion len |init). |
|00004ae0| 28 6c 65 74 20 28 28 63 | 20 28 6d 61 6b 65 2d 76 |(let ((c| (make-v|
|00004af0| 65 63 74 6f 72 20 28 2b | 20 6c 65 6e 20 31 29 20 |ector (+| len 1) |
|00004b00| 69 6e 69 74 29 29 29 0a | 20 20 20 20 28 76 65 63 |init))).| (vec|
|00004b10| 74 6f 72 2d 73 65 74 21 | 20 63 20 30 20 2a 63 6f |tor-set!| c 0 *co|
|00004b20| 6e 74 69 6e 75 61 74 69 | 6f 6e 2d 6d 61 72 6b 65 |ntinuati|on-marke|
|00004b30| 72 2a 29 0a 20 20 20 20 | 63 29 29 0a 0a 28 64 65 |r*). |c))..(de|
|00004b40| 66 69 6e 65 20 28 63 6f | 6e 74 69 6e 75 61 74 69 |fine (co|ntinuati|
|00004b50| 6f 6e 3f 20 6f 62 6a 29 | 0a 20 20 28 61 6e 64 20 |on? obj)|. (and |
|00004b60| 28 76 65 63 74 6f 72 3f | 20 6f 62 6a 29 0a 20 20 |(vector?| obj). |
|00004b70| 20 20 20 20 20 28 3e 20 | 28 76 65 63 74 6f 72 2d | (> |(vector-|
|00004b80| 6c 65 6e 67 74 68 20 6f | 62 6a 29 20 30 29 0a 20 |length o|bj) 0). |
|00004b90| 20 20 20 20 20 20 28 65 | 71 3f 20 28 76 65 63 74 | (e|q? (vect|
|00004ba0| 6f 72 2d 72 65 66 20 6f | 62 6a 20 30 29 20 2a 63 |or-ref o|bj 0) *c|
|00004bb0| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 2d 6d 61 72 6b |ontinuat|ion-mark|
|00004bc0| 65 72 2a 29 29 29 0a 0a | 28 64 65 66 69 6e 65 20 |er*)))..|(define |
|00004bd0| 28 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 2d 6c 65 |(continu|ation-le|
|00004be0| 6e 67 74 68 20 63 29 20 | 28 2d 20 28 76 65 63 74 |ngth c) |(- (vect|
|00004bf0| 6f 72 2d 6c 65 6e 67 74 | 68 20 63 29 20 31 29 29 |or-lengt|h c) 1))|
|00004c00| 0a 28 64 65 66 69 6e 65 | 20 28 63 6f 6e 74 69 6e |.(define| (contin|
|00004c10| 75 61 74 69 6f 6e 2d 72 | 65 66 20 63 20 69 29 20 |uation-r|ef c i) |
|00004c20| 28 76 65 63 74 6f 72 2d | 72 65 66 20 63 20 28 2b |(vector-|ref c (+|
|00004c30| 20 69 20 31 29 29 29 0a | 28 64 65 66 69 6e 65 20 | i 1))).|(define |
|00004c40| 28 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 2d 73 65 |(continu|ation-se|
|00004c50| 74 21 20 63 20 69 20 78 | 29 20 28 76 65 63 74 6f |t! c i x|) (vecto|
|00004c60| 72 2d 73 65 74 21 20 63 | 20 28 2b 20 69 20 31 29 |r-set! c| (+ i 1)|
|00004c70| 20 78 29 29 0a 00 00 00 | 00 00 00 00 00 00 00 00 | x))....|........|
|00004c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e00| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 65 |scsh-0.4|.2/alt/e|
|00004e10| 6e 76 69 72 6f 6e 6d 65 | 6e 74 73 2e 73 63 6d 00 |nvironme|nts.scm.|
|00004e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e60| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00004e70| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00004e80| 20 20 20 20 32 30 34 20 | 20 36 30 33 37 36 32 37 | 204 | 6037627|
|00004e90| 35 37 35 20 20 31 34 36 | 33 33 00 20 30 00 00 00 |575 146|33. 0...|
|00004ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f00| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00004f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f20| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00004f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005000| 0a 3b 20 64 6f 6e 27 74 | 20 70 75 74 20 61 20 63 |.; don't| put a c|
|00005010| 6f 70 79 72 69 67 68 74 | 20 6e 6f 74 69 63 65 2c |opyright| notice,|
|00005020| 20 73 69 6c 6c 79 20 73 | 68 65 6c 6c 20 73 63 72 | silly s|hell scr|
|00005030| 69 70 74 0a 0a 28 64 65 | 66 69 6e 65 20 28 2a 73 |ipt..(de|fine (*s|
|00005040| 74 72 75 63 74 75 72 65 | 2d 72 65 66 20 73 74 72 |tructure|-ref str|
|00005050| 75 63 74 20 6e 61 6d 65 | 29 0a 20 20 28 65 76 61 |uct name|). (eva|
|00005060| 6c 20 6e 61 6d 65 20 28 | 69 6e 74 65 72 61 63 74 |l name (|interact|
|00005070| 69 6f 6e 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 29 |ion-envi|ronment)|
|00005080| 29 29 0a 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 |))......|........|
|00005090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005200| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 65 |scsh-0.4|.2/alt/e|
|00005210| 73 63 61 70 65 2e 73 63 | 6d 00 00 00 00 00 00 00 |scape.sc|m.......|
|00005220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005260| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00005270| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00005280| 20 20 20 31 36 36 32 20 | 20 36 30 33 37 36 32 37 | 1662 | 6037627|
|00005290| 35 37 35 20 20 31 33 33 | 37 35 00 20 30 00 00 00 |575 133|75. 0...|
|000052a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005300| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00005310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005320| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00005330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005400| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00005410| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00005420| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00005430| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00005440| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00005450| 0a 0a 0a 3b 20 46 6f 72 | 20 61 6e 20 65 78 70 6c |...; For| an expl|
|00005460| 61 6e 61 74 69 6f 6e 2c | 20 73 65 65 20 63 6f 6d |anation,| see com|
|00005470| 6d 65 6e 74 73 20 69 6e | 20 72 74 73 2f 6c 6f 77 |ments in| rts/low|
|00005480| 2e 73 63 6d 2e 0a 0a 3b | 20 54 68 65 20 64 65 62 |.scm...;| The deb|
|00005490| 75 67 67 65 72 20 69 6e | 76 6f 6b 65 73 20 45 58 |ugger in|vokes EX|
|000054a0| 54 52 41 43 54 2d 43 4f | 4e 54 49 4e 55 41 54 49 |TRACT-CO|NTINUATI|
|000054b0| 4f 4e 20 6f 6e 20 61 20 | 22 6e 61 74 69 76 65 22 |ON on a |"native"|
|000054c0| 20 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 0a 3b 20 | continu|ation.; |
|000054d0| 61 73 20 6f 62 74 61 69 | 6e 65 64 20 62 79 20 50 |as obtai|ned by P|
|000054e0| 52 49 4d 49 54 49 56 45 | 2d 43 57 43 43 20 69 6e |RIMITIVE|-CWCC in|
|000054f0| 20 6f 72 64 65 72 20 74 | 6f 20 67 65 74 20 61 20 | order t|o get a |
|00005500| 56 4d 20 63 6f 6e 74 69 | 6e 75 61 74 69 6f 6e 2e |VM conti|nuation.|
|00005510| 0a 3b 20 54 68 65 20 64 | 69 73 74 69 6e 63 74 69 |.; The d|istincti|
|00005520| 6f 6e 20 62 65 74 77 65 | 65 6e 20 6e 61 74 69 76 |on betwe|en nativ|
|00005530| 65 20 61 6e 64 20 56 4d | 20 63 6f 6e 74 69 6e 75 |e and VM| continu|
|00005540| 61 74 69 6f 6e 73 20 69 | 73 20 75 73 65 66 75 6c |ations i|s useful|
|00005550| 20 77 68 65 6e 0a 3b 20 | 64 65 62 75 67 67 69 6e | when.; |debuggin|
|00005560| 67 20 61 20 70 72 6f 67 | 72 61 6d 20 72 75 6e 6e |g a prog|ram runn|
|00005570| 69 6e 67 20 75 6e 64 65 | 72 20 61 20 56 4d 20 74 |ing unde|r a VM t|
|00005580| 68 61 74 27 73 20 64 69 | 66 66 65 72 65 6e 74 20 |hat's di|fferent |
|00005590| 66 72 6f 6d 0a 3b 20 77 | 68 61 74 65 76 65 72 20 |from.; w|hatever |
|000055a0| 6d 61 63 68 69 6e 65 20 | 69 73 20 72 75 6e 6e 69 |machine |is runni|
|000055b0| 6e 67 20 74 68 65 20 64 | 65 62 75 67 67 65 72 2e |ng the d|ebugger.|
|000055c0| 0a 0a 28 64 65 66 69 6e | 65 2d 72 65 63 6f 72 64 |..(defin|e-record|
|000055d0| 2d 74 79 70 65 20 65 73 | 63 61 70 65 20 3a 65 73 |-type es|cape :es|
|000055e0| 63 61 70 65 0a 20 20 28 | 6d 61 6b 65 2d 65 73 63 |cape. (|make-esc|
|000055f0| 61 70 65 20 70 72 6f 63 | 29 0a 20 20 28 70 72 6f |ape proc|). (pro|
|00005600| 63 20 65 73 63 61 70 65 | 2d 70 72 6f 63 65 64 75 |c escape|-procedu|
|00005610| 72 65 29 29 0a 0a 28 64 | 65 66 69 6e 65 20 28 77 |re))..(d|efine (w|
|00005620| 69 74 68 2d 63 6f 6e 74 | 69 6e 75 61 74 69 6f 6e |ith-cont|inuation|
|00005630| 20 65 73 63 20 74 68 75 | 6e 6b 29 0a 20 20 28 69 | esc thu|nk). (i|
|00005640| 66 20 65 73 63 0a 20 20 | 20 20 20 20 28 28 65 73 |f esc. | ((es|
|00005650| 63 61 70 65 2d 70 72 6f | 63 65 64 75 72 65 20 65 |cape-pro|cedure e|
|00005660| 73 63 29 20 74 68 75 6e | 6b 29 0a 20 20 20 20 20 |sc) thun|k). |
|00005670| 20 28 6c 65 74 20 28 28 | 61 6e 73 77 65 72 20 28 | (let ((|answer (|
|00005680| 74 68 75 6e 6b 29 29 29 | 0a 09 28 73 69 67 6e 61 |thunk)))|..(signa|
|00005690| 6c 20 27 76 6d 2d 72 65 | 74 75 72 6e 20 61 6e 73 |l 'vm-re|turn ans|
|000056a0| 77 65 72 29 09 3b 23 66 | 20 6d 65 61 6e 73 20 68 |wer).;#f| means h|
|000056b0| 61 6c 74 0a 09 28 63 61 | 6c 6c 2d 65 72 72 6f 72 |alt..(ca|ll-error|
|000056c0| 20 22 68 61 6c 74 22 20 | 61 6e 73 77 65 72 29 29 | "halt" |answer))|
|000056d0| 29 29 0a 0a 28 64 65 66 | 69 6e 65 20 28 70 72 69 |))..(def|ine (pri|
|000056e0| 6d 69 74 69 76 65 2d 63 | 77 63 63 20 70 72 6f 63 |mitive-c|wcc proc|
|000056f0| 29 0a 20 20 28 63 61 6c | 6c 2d 77 69 74 68 2d 63 |). (cal|l-with-c|
|00005700| 75 72 72 65 6e 74 2d 63 | 6f 6e 74 69 6e 75 61 74 |urrent-c|ontinuat|
|00005710| 69 6f 6e 0a 20 20 20 20 | 28 6c 61 6d 62 64 61 20 |ion. |(lambda |
|00005720| 28 64 6f 6e 65 29 0a 20 | 20 20 20 20 20 28 28 63 |(done). | ((c|
|00005730| 61 6c 6c 2d 77 69 74 68 | 2d 63 75 72 72 65 6e 74 |all-with|-current|
|00005740| 2d 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 0a 09 20 |-continu|ation.. |
|00005750| 28 6c 61 6d 62 64 61 20 | 28 6b 29 0a 09 20 20 20 |(lambda |(k).. |
|00005760| 28 63 61 6c 6c 2d 77 69 | 74 68 2d 76 61 6c 75 65 |(call-wi|th-value|
|00005770| 73 0a 09 20 20 20 20 20 | 20 20 28 6c 61 6d 62 64 |s.. | (lambd|
|00005780| 61 20 28 29 0a 09 09 20 | 28 70 72 6f 63 20 28 6d |a ()... |(proc (m|
|00005790| 61 6b 65 2d 65 73 63 61 | 70 65 20 6b 29 29 29 0a |ake-esca|pe k))).|
|000057a0| 09 20 20 20 20 20 64 6f | 6e 65 29 29 29 29 29 29 |. do|ne))))))|
|000057b0| 29 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |).......|........|
|000057c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000057f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005800| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 66 |scsh-0.4|.2/alt/f|
|00005810| 65 61 74 75 72 65 73 2d | 70 61 63 6b 61 67 65 73 |eatures-|packages|
|00005820| 2e 73 63 6d 00 00 00 00 | 00 00 00 00 00 00 00 00 |.scm....|........|
|00005830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005860| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00005870| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00005880| 20 20 20 31 34 36 36 20 | 20 36 30 33 37 36 32 37 | 1466 | 6037627|
|00005890| 35 37 36 20 20 31 35 35 | 33 32 00 20 30 00 00 00 |576 155|32. 0...|
|000058a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005900| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00005910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005920| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00005930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a00| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00005a10| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00005a20| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00005a30| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00005a40| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00005a50| 0a 0a 0a 3b 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |...; The| followi|
|00005a60| 6e 67 20 73 65 76 65 72 | 61 6c 20 70 61 63 6b 61 |ng sever|al packa|
|00005a70| 67 65 73 20 68 61 76 65 | 20 53 63 68 65 6d 65 2d |ges have| Scheme-|
|00005a80| 69 6d 70 6c 65 6d 65 6e | 74 61 74 69 6f 6e 2d 73 |implemen|tation-s|
|00005a90| 70 65 63 69 66 69 63 20 | 0a 3b 20 76 61 72 69 61 |pecific |.; varia|
|00005aa0| 6e 74 73 20 74 68 61 74 | 20 61 72 65 20 6d 75 63 |nts that| are muc|
|00005ab0| 68 20 62 65 74 74 65 72 | 20 66 6f 72 20 6f 6e 65 |h better| for one|
|00005ac0| 20 72 65 61 73 6f 6e 20 | 6f 72 20 61 6e 6f 74 68 | reason |or anoth|
|00005ad0| 65 72 20 74 68 61 6e 0a | 3b 20 74 68 65 20 67 65 |er than.|; the ge|
|00005ae0| 6e 65 72 69 63 20 76 65 | 72 73 69 6f 6e 73 20 64 |neric ve|rsions d|
|00005af0| 65 66 69 6e 65 64 20 68 | 65 72 65 2e 0a 0a 28 64 |efined h|ere...(d|
|00005b00| 65 66 69 6e 65 2d 73 74 | 72 75 63 74 75 72 65 73 |efine-st|ructures|
|00005b10| 20 28 28 73 69 67 6e 61 | 6c 73 20 73 69 67 6e 61 | ((signa|ls signa|
|00005b20| 6c 73 2d 69 6e 74 65 72 | 66 61 63 65 29 0a 09 09 |ls-inter|face)...|
|00005b30| 20 20 20 20 28 68 61 6e | 64 6c 65 20 28 65 78 70 | (han|dle (exp|
|00005b40| 6f 72 74 20 69 67 6e 6f | 72 65 2d 65 72 72 6f 72 |ort igno|re-error|
|00005b50| 73 29 29 0a 09 09 20 20 | 20 20 28 66 65 61 74 75 |s))... | (featu|
|00005b60| 72 65 73 20 66 65 61 74 | 75 72 65 73 2d 69 6e 74 |res feat|ures-int|
|00005b70| 65 72 66 61 63 65 29 29 | 0a 20 20 28 6f 70 65 6e |erface))|. (open|
|00005b80| 20 73 63 68 65 6d 65 2d | 6c 65 76 65 6c 2d 32 29 | scheme-|level-2)|
|00005b90| 0a 20 20 28 66 69 6c 65 | 73 20 66 65 61 74 75 72 |. (file|s featur|
|00005ba0| 65 73 29 29 0a 0a 28 64 | 65 66 69 6e 65 2d 73 74 |es))..(d|efine-st|
|00005bb0| 72 75 63 74 75 72 65 20 | 72 65 63 6f 72 64 73 20 |ructure |records |
|00005bc0| 72 65 63 6f 72 64 73 2d | 69 6e 74 65 72 66 61 63 |records-|interfac|
|00005bd0| 65 0a 20 20 28 6f 70 65 | 6e 20 73 63 68 65 6d 65 |e. (ope|n scheme|
|00005be0| 2d 6c 65 76 65 6c 2d 32 | 20 73 69 67 6e 61 6c 73 |-level-2| signals|
|00005bf0| 29 0a 20 20 28 66 69 6c | 65 73 20 72 65 63 6f 72 |). (fil|es recor|
|00005c00| 64 29 29 0a 0a 28 64 65 | 66 69 6e 65 2d 73 74 72 |d))..(de|fine-str|
|00005c10| 75 63 74 75 72 65 20 61 | 73 63 69 69 20 28 65 78 |ucture a|scii (ex|
|00005c20| 70 6f 72 74 20 61 73 63 | 69 69 2d 3e 63 68 61 72 |port asc|ii->char|
|00005c30| 20 63 68 61 72 2d 3e 61 | 73 63 69 69 29 0a 20 20 | char->a|scii). |
|00005c40| 28 6f 70 65 6e 20 73 63 | 68 65 6d 65 2d 6c 65 76 |(open sc|heme-lev|
|00005c50| 65 6c 2d 32 20 73 69 67 | 6e 61 6c 73 29 0a 20 20 |el-2 sig|nals). |
|00005c60| 28 66 69 6c 65 73 20 61 | 73 63 69 69 29 29 0a 0a |(files a|scii))..|
|00005c70| 28 64 65 66 69 6e 65 2d | 73 74 72 75 63 74 75 72 |(define-|structur|
|00005c80| 65 20 62 69 74 77 69 73 | 65 20 62 69 74 77 69 73 |e bitwis|e bitwis|
|00005c90| 65 2d 69 6e 74 65 72 66 | 61 63 65 0a 20 20 28 6f |e-interf|ace. (o|
|00005ca0| 70 65 6e 20 73 63 68 65 | 6d 65 2d 6c 65 76 65 6c |pen sche|me-level|
|00005cb0| 2d 32 20 73 69 67 6e 61 | 6c 73 29 0a 20 20 28 66 |-2 signa|ls). (f|
|00005cc0| 69 6c 65 73 20 62 69 74 | 77 69 73 65 29 29 0a 0a |iles bit|wise))..|
|00005cd0| 28 64 65 66 69 6e 65 2d | 73 74 72 75 63 74 75 72 |(define-|structur|
|00005ce0| 65 20 63 6f 64 65 2d 76 | 65 63 74 6f 72 73 20 63 |e code-v|ectors c|
|00005cf0| 6f 64 65 2d 76 65 63 74 | 6f 72 73 2d 69 6e 74 65 |ode-vect|ors-inte|
|00005d00| 72 66 61 63 65 0a 20 20 | 28 6f 70 65 6e 20 73 63 |rface. |(open sc|
|00005d10| 68 65 6d 65 2d 6c 65 76 | 65 6c 2d 31 29 0a 20 20 |heme-lev|el-1). |
|00005d20| 28 66 69 6c 65 73 20 63 | 6f 64 65 2d 76 65 63 74 |(files c|ode-vect|
|00005d30| 6f 72 73 29 29 0a 00 00 | 00 00 00 00 00 00 00 00 |ors))...|........|
|00005d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e00| 73 63 73 68 2d 30 2e 34 | 2e 32 2f 61 6c 74 2f 66 |scsh-0.4|.2/alt/f|
|00005e10| 65 61 74 75 72 65 73 2e | 73 63 6d 00 00 00 00 00 |eatures.|scm.....|
|00005e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e60| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 31 34 34 |....1006|64 . 144|
|00005e70| 32 33 20 00 20 20 20 20 | 31 33 20 00 20 20 20 20 |23 . |13 . |
|00005e80| 20 20 20 32 35 36 34 20 | 20 36 30 33 37 36 32 37 | 2564 | 6037627|
|00005e90| 35 37 36 20 20 31 33 37 | 35 36 00 20 30 00 00 00 |576 137|56. 0...|
|00005ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f00| 00 75 73 74 61 72 20 20 | 00 62 64 63 00 00 00 00 |.ustar |.bdc....|
|00005f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f20| 00 00 00 00 00 00 00 00 | 00 75 73 65 72 73 00 00 |........|.users..|
|00005f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006000| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00006010| 31 39 39 33 2c 20 31 39 | 39 34 20 52 69 63 68 61 |1993, 19|94 Richa|
|00006020| 72 64 20 4b 65 6c 73 65 | 79 20 61 6e 64 20 4a 6f |rd Kelse|y and Jo|
|00006030| 6e 61 74 68 61 6e 20 52 | 65 65 73 2e 20 20 53 65 |nathan R|ees. Se|
|00006040| 65 20 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 2e 0a |e file C|OPYING..|
|00006050| 0a 0a 3b 20 54 68 69 73 | 20 69 73 20 66 69 6c 65 |..; This| is file|
|00006060| 20 66 65 61 74 75 72 65 | 73 2e 73 63 6d 2e 0a 3b | feature|s.scm..;|
|00006070| 20 53 79 6e 63 68 72 6f | 6e 69 7a 65 20 61 6e 79 | Synchro|nize any|
|00006080| 20 63 68 61 6e 67 65 73 | 20 77 69 74 68 20 61 6c | changes| with al|
|00006090| 6c 20 74 68 65 20 6f 74 | 68 65 72 20 2a 2d 66 65 |l the ot|her *-fe|
|000060a0| 61 74 75 72 65 73 2e 73 | 63 6d 20 66 69 6c 65 73 |atures.s|cm files|
|000060b0| 2e 0a 0a 3b 20 54 68 65 | 73 65 20 64 65 66 69 6e |...; The|se defin|
|000060c0| 69 74 69 6f 6e 73 20 73 | 68 6f 75 6c 64 20 62 65 |itions s|hould be|
|000060d0| 20 71 75 69 74 65 20 70 | 6f 72 74 61 62 6c 65 20 | quite p|ortable |
|000060e0| 74 6f 20 61 6e 79 20 53 | 63 68 65 6d 65 20 69 6d |to any S|cheme im|
|000060f0| 70 6c 65 6d 65 6e 74 61 | 74 69 6f 6e 2e 0a 3b 20 |plementa|tion..; |
|00006100| 41 73 73 75 6d 65 73 20 | 52 65 76 69 73 65 64 5e |Assumes |Revised^|
|00006110| 35 20 52 65 70 6f 72 74 | 20 53 63 68 65 6d 65 2c |5 Report| Scheme,|
|00006120| 20 66 6f 72 20 45 56 41 | 4c 20 61 6e 64 20 66 72 | for EVA|L and fr|
|00006130| 69 65 6e 64 73 2e 0a 0a | 0a 3b 20 53 49 47 4e 41 |iends...|.; SIGNA|
|00006140| 4c 53 0a 0a 28 64 65 66 | 69 6e 65 20 28 65 72 72 |LS..(def|ine (err|
|00006150| 6f 72 20 6d 65 73 73 61 | 67 65 20 2e 20 69 72 72 |or messa|ge . irr|
|00006160| 69 74 61 6e 74 73 29 0a | 20 20 28 64 69 73 70 6c |itants).| (displ|
|00006170| 61 79 2d 65 72 72 6f 72 | 2d 6d 65 73 73 61 67 65 |ay-error|-message|
|00006180| 20 22 45 72 72 6f 72 3a | 20 22 20 6d 65 73 73 61 | "Error:| " messa|
|00006190| 67 65 20 69 72 72 69 74 | 61 6e 74 73 29 0a 20 20 |ge irrit|ants). |
|000061a0| 28 61 6e 2d 65 72 72 6f | 72 2d 6f 63 63 75 72 72 |(an-erro|r-occurr|
|000061b0| 65 64 2d 6e 6f 77 2d 77 | 68 61 74 3f 29 29 0a 0a |ed-now-w|hat?))..|
|000061c0| 28 64 65 66 69 6e 65 20 | 28 77 61 72 6e 20 6d 65 |(define |(warn me|
|000061d0| 73 73 61 67 65 20 2e 20 | 69 72 72 69 74 61 6e 74 |ssage . |irritant|
|000061e0| 73 29 0a 20 20 28 64 69 | 73 70 6c 61 79 2d 65 72 |s). (di|splay-er|
|000061f0| 72 6f 72 2d 6d 65 73 73 | 61 67 65 20 22 57 61 72 |ror-mess|age "War|
|00006200| 6e 69 6e 67 3a 20 22 20 | 6d 65 73 73 61 67 65 20 |ning: " |message |
|00006210| 69 72 72 69 74 61 6e 74 | 73 29 29 0a 0a 28 64 65 |irritant|s))..(de|
|00006220| 66 69 6e 65 20 28 64 69 | 73 70 6c 61 79 2d 65 72 |fine (di|splay-er|
|00006230| 72 6f 72 2d 6d 65 73 73 | 61 67 65 20 68 65 61 64 |ror-mess|age head|
|00006240| 69 6e 67 20 6d 65 73 73 | 61 67 65 20 69 72 72 69 |ing mess|age irri|
|00006250| 74 61 6e 74 73 29 0a 20 | 20 28 64 69 73 70 6c 61 |tants). | (displa|
|00006260| 79 20 68 65 61 64 69 6e | 67 29 0a 20 20 28 64 69 |y headin|g). (di|
|00006270| 73 70 6c 61 79 20 6d 65 | 73 73 61 67 65 29 0a 20 |splay me|ssage). |
|00006280| 20 28 6e 65 77 6c 69 6e | 65 29 0a 20 20 28 6c 65 | (newlin|e). (le|
|00006290| 74 20 28 28 73 70 61 63 | 65 73 20 28 6c 69 73 74 |t ((spac|es (list|
|000062a0| 2d 3e 73 74 72 69 6e 67 | 0a 09 09 20 28 6d 61 70 |->string|... (map|
|000062b0| 20 28 6c 61 6d 62 64 61 | 20 28 63 29 20 23 5c 73 | (lambda| (c) #\s|
|000062c0| 70 61 63 65 29 20 28 73 | 74 72 69 6e 67 2d 3e 6c |pace) (s|tring->l|
|000062d0| 69 73 74 20 68 65 61 64 | 69 6e 67 29 29 29 29 29 |ist head|ing)))))|
|000062e0| 0a 20 20 20 20 28 66 6f | 72 2d 65 61 63 68 20 28 |. (fo|r-each (|
|000062f0| 6c 61 6d 62 64 61 20 28 | 69 72 72 69 74 61 6e 74 |lambda (|irritant|
|00006300| 29 0a 09 09 28 64 69 73 | 70 6c 61 79 20 73 70 61 |)...(dis|play spa|
|00006310| 63 65 73 29 0a 09 09 28 | 77 72 69 74 65 20 69 72 |ces)...(|write ir|
|00006320| 72 69 74 61 6e 74 29 0a | 09 09 28 6e 65 77 6c 69 |ritant).|..(newli|
|00006330| 6e 65 29 29 0a 09 20 20 | 20 20 20 20 69 72 72 69 |ne)).. | irri|
|00006340| 74 61 6e 74 73 29 29 29 | 0a 0a 3b 20 4c 69 6e 6b |tants)))|..; Link|
|00006350| 65 72 20 61 6c 73 6f 20 | 6e 65 65 64 73 20 53 49 |er also |needs SI|
|00006360| 47 4e 41 4c 2c 20 53 59 | 4e 54 41 58 2d 45 52 52 |GNAL, SY|NTAX-ERR|
|00006370| 4f 52 2c 20 43 41 4c 4c | 2d 45 52 52 4f 52 0a 0a |OR, CALL|-ERROR..|
|00006380| 0a 3b 20 48 41 4e 44 4c | 45 0a 0a 28 64 65 66 69 |.; HANDL|E..(defi|
|00006390| 6e 65 20 28 69 67 6e 6f | 72 65 2d 65 72 72 6f 72 |ne (igno|re-error|
|000063a0| 73 20 74 68 75 6e 6b 29 | 0a 20 20 27 28 65 72 72 |s thunk)|. '(err|
|000063b0| 6f 72 20 22 69 67 6e 6f | 72 65 2d 65 72 72 6f 72 |or "igno|re-error|
|000063c0| 73 20 69 73 6e 27 74 20 | 69 6d 70 6c 65 6d 65 6e |s isn't |implemen|
|000063d0| 74 65 64 22 29 29 0a 0a | 0a 3b 20 46 45 41 54 55 |ted"))..|.; FEATU|
|000063e0| 52 45 53 0a 0a 28 64 65 | 66 69 6e 65 20 28 66 6f |RES..(de|fine (fo|
|000063f0| 72 63 65 2d 6f 75 74 70 | 75 74 20 70 6f 72 74 29 |rce-outp|ut port)|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.